[Vegan-commits] r2688 - pkg/permute/tests/Examples

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

Author: gsimpson
Date: 2013-11-09 03:13:01 +0100 (Sat, 09 Nov 2013)
New Revision: 2688

Modified:
   pkg/permute/tests/Examples/permute-Ex.Rout.save
Log:
update the reference material for example checks

Modified: pkg/permute/tests/Examples/permute-Ex.Rout.save
===================================================================
--- pkg/permute/tests/Examples/permute-Ex.Rout.save	2013-11-09 02:05:17 UTC (rev 2687)
+++ pkg/permute/tests/Examples/permute-Ex.Rout.save	2013-11-09 02:13:01 UTC (rev 2688)
@@ -55,7 +55,7 @@
 > Nobs <- length(fac)
 > numPerms(seq_len(Nobs), control = ctrl) ## 6
 [1] 6
-> (tmp <- allPerms(Nobs, control = ctrl, observed = TRUE))
+> (tmp <- allPerms(Nobs, control = update(ctrl, observed = TRUE)))
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
 [1,]    2    3    4    5    6    1    8    9   10    11    12     7
 [2,]    3    4    5    6    1    2    9   10   11    12     7     8
@@ -76,7 +76,7 @@
 > ctrl <- update(ctrl, within = update(getWithin(ctrl), mirror = TRUE))
 > numPerms(seq_len(Nobs), control = ctrl)
 [1] 12
-> (tmp3 <- allPerms(Nobs, control = ctrl, observed = TRUE))
+> (tmp3 <- allPerms(Nobs, control = update(ctrl, observed = TRUE)))
       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
  [1,]    2    3    4    5    6    1    8    9   10    11    12     7
  [2,]    3    4    5    6    1    2    9   10   11    12     7     8
@@ -299,7 +299,7 @@
 > 
 > numPerms(1:12, control = ctrl)
 [1] 6
-> (tmp <- allPerms(12, control = ctrl, observed = TRUE))
+> (tmp <- allPerms(12, control = update(ctrl, observed = TRUE)))
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
 [1,]    2    3    4    5    6    1    8    9   10    11    12     7
 [2,]    3    4    5    6    1    2    9   10   11    12     7     8
@@ -319,7 +319,7 @@
 > ctrl <- update(ctrl, within = update(getWithin(ctrl), mirror = TRUE))
 > numPerms(1:12, control = ctrl)
 [1] 12
-> (tmp3 <- allPerms(12, control = ctrl, observed = TRUE))
+> (tmp3 <- allPerms(12, control = update(ctrl, observed = TRUE)))
       [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] [,11] [,12]
  [1,]    2    3    4    5    6    1    8    9   10    11    12     7
  [2,]    3    4    5    6    1    2    9   10   11    12     7     8
@@ -499,7 +499,8 @@
 > ###   getNperm.permControl getMaxperm getMaxperm.default getMaxperm.how
 > ###   getMaxperm.permControl getMinperm getMinperm.default getMinperm.how
 > ###   getMinperm.permControl getComplete getComplete.default
-> ###   getComplete.how getComplete.permControl
+> ###   getComplete.how getComplete.permControl getMake getMake.default
+> ###   getMake.how getObserved getObserved.default getObserved.how
 > ### Keywords: methods utils
 > 
 > ### ** Examples
@@ -1166,7 +1167,7 @@
 > ###
 > options(digits = 7L)
 > base::cat("Time elapsed: ", proc.time() - base::get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  2.065 0.041 2.124 0 0 
+Time elapsed:  2.328 0.04 2.494 0 0 
 > grDevices::dev.off()
 null device 
           1