[Vegan-commits] r1779 - pkg/permute/man

[noreply at r-forge.r-project.org]

Author: gsimpson
Date: 2011-08-30 18:12:57 +0200 (Tue, 30 Aug 2011)
New Revision: 1779

Modified:
   pkg/permute/man/shuffleSet.Rd
Log:
Extra examples, some should really be checks/tests

Modified: pkg/permute/man/shuffleSet.Rd
===================================================================
--- pkg/permute/man/shuffleSet.Rd	2011-08-30 16:12:00 UTC (rev 1778)
+++ pkg/permute/man/shuffleSet.Rd	2011-08-30 16:12:57 UTC (rev 1779)
@@ -66,6 +66,26 @@
 CTRL <- permControl(strata = grp, within = Within(type = "none"),
                                   blocks = Blocks(type = "free"))
 shuffleSet(20, 10, control = CTRL)
+
+## 10 random permutations in presence of strata
+block <- gl(4, 5)
+CTRL <- permControl(strata = block,
+                    within = Within(type = "free"))
+shuffleSet(20, 10, CTRL)
+## as above but same random permutation within strata
+CTRL <- permControl(strata = block,
+                    within = Within(type = "free", constant = TRUE))
+shuffleSet(20, 10, CTRL)
+
+## time series within each level of block
+CTRL <- permControl(strata = block,
+                    within = Within(type = "series"))
+shuffleSet(20, 10, CTRL)
+## as above, but  with same permutation for each level
+CTRL <- permControl(strata = block,
+                    within = Within(type = "series",
+                                    constant = TRUE))
+shuffleSet(20, 10, CTRL)
 }
 % Add one or more standard keywords, see file 'KEYWORDS' in the
 % R documentation directory.