tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Permutation-test/R/permutation-test-1.r
+++ b/Task/Permutation-test/R/permutation-test-1.r
@ -0,0 +1,8 @@
+permutation.test <- function(treatment, control) {
+  perms <- combinations(length(treatment)+length(control),
+                        length(treatment),
+                        c(treatment, control),
+                        set=FALSE)
+  p <- mean(rowMeans(perms) <= mean(treatment))
+  c(under=p, over=(1-p))
+}
--- a/Task/Permutation-test/R/permutation-test-2.r
+++ b/Task/Permutation-test/R/permutation-test-2.r
@ -0,0 +1,4 @@
+> permutation.test(c(85, 88, 75, 66, 25, 29, 83, 39, 97),
+                  c(68, 41, 10, 49, 16, 65, 32, 92, 28, 98))
+    under      over
+0.8719717 0.1280283