[Vegan-commits] r2656 - in pkg/permute: inst man

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Tue Nov 5 23:51:25 CET 2013


Author: gsimpson
Date: 2013-11-05 23:51:25 +0100 (Tue, 05 Nov 2013)
New Revision: 2656

Modified:
   pkg/permute/inst/ChangeLog
   pkg/permute/man/allPerms.Rd
   pkg/permute/man/check.Rd
Log:
Documentation fixes in examples of 'allPerms' and 'check'

Modified: pkg/permute/inst/ChangeLog
===================================================================
--- pkg/permute/inst/ChangeLog	2013-11-05 22:50:08 UTC (rev 2655)
+++ pkg/permute/inst/ChangeLog	2013-11-05 22:51:25 UTC (rev 2656)
@@ -20,6 +20,8 @@
 	* allPerms, doAllPerms: now correctly work in presence of blocks,
 	and where there are no plots.
 
+	* Documentation fixes in examples of `allPerms` and `check`.
+
 Version 0.7-4
 
 	* Deprecated functions: Completed the deprecation of `permCheck()`

Modified: pkg/permute/man/allPerms.Rd
===================================================================
--- pkg/permute/man/allPerms.Rd	2013-11-05 22:50:08 UTC (rev 2655)
+++ pkg/permute/man/allPerms.Rd	2013-11-05 22:51:25 UTC (rev 2656)
@@ -84,7 +84,8 @@
 (tmp2 <- allPerms(Nobs, control = ctrl))
 
 ## turn on mirroring
-ctrl$within$mirror <- TRUE
+##ctrl$within$mirror <- TRUE
+ctrl <- update(ctrl, within = update(getWithin(ctrl), mirror = TRUE))
 numPerms(seq_len(Nobs), control = ctrl)
 (tmp3 <- allPerms(Nobs, control = ctrl, observed = TRUE))
 (tmp4 <- allPerms(Nobs, control = ctrl))

Modified: pkg/permute/man/check.Rd
===================================================================
--- pkg/permute/man/check.Rd	2013-11-05 22:50:08 UTC (rev 2655)
+++ pkg/permute/man/check.Rd	2013-11-05 22:51:25 UTC (rev 2656)
@@ -168,7 +168,8 @@
 (tmp2 <- allPerms(12, control = ctrl))
 
 ## turn on mirroring %%FIXME needs a proper method to do this
-ctrl$within$mirror <- TRUE
+##ctrl$within$mirror <- TRUE
+ctrl <- update(ctrl, within = update(getWithin(ctrl), mirror = TRUE))
 numPerms(1:12, control = ctrl)
 (tmp3 <- allPerms(12, control = ctrl, observed = TRUE))
 (tmp4 <- allPerms(12, control = ctrl))



More information about the Vegan-commits mailing list