[Swift-commit] r3088 - SwiftApps/SIDGrid/swift/projects/andric/ccf_emblem/NonParametric_lag_analy/PermScripts

[noreply at svn.ci.uchicago.edu]

Author: andric
Date: 2009-08-08 23:56:31 -0500 (Sat, 08 Aug 2009)
New Revision: 3088

Added:
   SwiftApps/SIDGrid/swift/projects/andric/ccf_emblem/NonParametric_lag_analy/PermScripts/generate_PermEnv.R
Log:
used to generate FriedmanPerm.Rdata

Added: SwiftApps/SIDGrid/swift/projects/andric/ccf_emblem/NonParametric_lag_analy/PermScripts/generate_PermEnv.R
===================================================================
--- SwiftApps/SIDGrid/swift/projects/andric/ccf_emblem/NonParametric_lag_analy/PermScripts/generate_PermEnv.R	                        (rev 0)
+++ SwiftApps/SIDGrid/swift/projects/andric/ccf_emblem/NonParametric_lag_analy/PermScripts/generate_PermEnv.R	2009-08-09 04:56:31 UTC (rev 3088)
@@ -0,0 +1,14 @@
+config <- array(0,c(4000,3,24))
+for (i in 1:ncol(config[1,,])){
+    config[,,i] <- sample(1:3)
+}
+
+cc <- as.vector(c(rep(0,12),rep(1,12)))
+ss_config <- matrix(nrow=3000,ncol=24)
+mat_row <- 0;
+
+for (i in 1:nrow(ss_config)){
+    mat_row <- mat_row + 1
+    ss_config[mat_row,] <- c(sample(cc))
+}
+save(config,ss_config,file="FriedmanPerm.Rdata")