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

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

Author: gsimpson
Date: 2010-12-09 10:54:52 +0100 (Thu, 09 Dec 2010)
New Revision: 1400

Modified:
   pkg/permute/man/permCheck.Rd
Log:
tidy one example to new API

Modified: pkg/permute/man/permCheck.Rd
===================================================================
--- pkg/permute/man/permCheck.Rd	2010-12-09 09:54:11 UTC (rev 1399)
+++ pkg/permute/man/permCheck.Rd	2010-12-09 09:54:52 UTC (rev 1400)
@@ -178,12 +178,19 @@
                                      Within(type= "series",
                                                 mirror = TRUE)))
 all.equal(vec4$n, 200)
+
+## enumerate all possible permutations
+fac <- gl(2,6)
+ctrl <- permControl(strata = fac,
+                    within = Within(type = "grid", mirror = FALSE,
+                                    constant = TRUE, nrow = 3,
+                                    ncol = 2))
+permCheck(ctrl)
+
 %% FIXME - need all these updating to new API in permControl...
+%% Fixed one, above, but there may still be problems with some of
+%% the code below:
 \dontrun{
-## enumerate all possible permutations
-fac <- gl(2,6)
-ctrl <- permControl(type = "grid", mirror = FALSE, strata = fac,
-                    constant = TRUE, nrow = 3, ncol = 2)
 numPerms(1:12, control = ctrl)
 (tmp <- allPerms(12, control = ctrl, observed = TRUE))
 (tmp2 <- allPerms(12, control = ctrl))