[Swift-commit] r3112 - in SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations: . scripts

[noreply at svn.ci.uchicago.edu]

Author: andric
Date: 2009-09-22 13:28:15 -0500 (Tue, 22 Sep 2009)
New Revision: 3112

Added:
   SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations/scripts/
   SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations/scripts/generatePerm.R
Log:
includes needed R code

Added: SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations/scripts/generatePerm.R
===================================================================
--- SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations/scripts/generatePerm.R	                        (rev 0)
+++ SwiftApps/SIDGrid/swift/projects/andric/peakfit_pilots/PK2/turnpointAnalysis/permutations/scripts/generatePerm.R	2009-09-22 18:28:15 UTC (rev 3112)
@@ -0,0 +1,7 @@
+## this is to generate a permutation
+allinputs <- Sys.getenv("R_SWIFT_ARGS")
+print(allinputs)
+outname <- noquote(strsplit(allinputs," ")[[1]][1])
+print(outname)
+brain <- rnorm(130934,mean=0.78121,sd=1.092181)
+write.table(round(brain,3),outname,row.names=F,col.names=F,quote=F)