[Vegan-commits] r1540 - pkg/vegan/tests/Examples

noreply at r-forge.r-project.org noreply at r-forge.r-project.org
Mon Mar 14 09:11:35 CET 2011


Author: jarioksa
Date: 2011-03-14 09:11:34 +0100 (Mon, 14 Mar 2011)
New Revision: 1540

Modified:
   pkg/vegan/tests/Examples/vegan-Ex.Rout.save
Log:
update for rev 1538

Modified: pkg/vegan/tests/Examples/vegan-Ex.Rout.save
===================================================================
--- pkg/vegan/tests/Examples/vegan-Ex.Rout.save	2011-03-12 17:02:58 UTC (rev 1539)
+++ pkg/vegan/tests/Examples/vegan-Ex.Rout.save	2011-03-14 08:11:34 UTC (rev 1540)
@@ -4667,12 +4667,29 @@
 
 Formula:
 y ~ s(x1, x2, k = knots)
-<environment: 0x10419a808>
+<environment: 0x1033d4d48>
 
 Estimated degrees of freedom:
 6.2955  total = 7.295494 
 
 GCV score: 177.6966
+> 
+> ## as above but with extra penalties on smooth terms:
+> with(varechem, ordisurf(vare.mds, Baresoil, bubble = 5, col = "blue",
++                         add = TRUE, select = TRUE))
+
+Family: gaussian 
+Link function: identity 
+
+Formula:
+y ~ s(x1, x2, k = knots)
+<environment: 0x105a701b8>
+
+Estimated degrees of freedom:
+4.9207  total = 5.920718 
+
+GCV score: 166.6991
+> 
 > ## Cover of Cladina arbuscula
 > fit <- with(varespec, ordisurf(vare.mds, Cla.arb, family=quasipoisson)) 
 > ## Get fitted values
@@ -4813,7 +4830,7 @@
 
 Formula:
 y ~ s(x1, x2, k = knots)
-<environment: 0x106ef7ed8>
+<environment: 0x100ff1d58>
 
 Estimated degrees of freedom:
 8.9275  total = 9.927492 
@@ -4826,7 +4843,7 @@
 
 Formula:
 y ~ s(x1, x2, k = knots)
-<environment: 0x1065de4d0>
+<environment: 0x105ff2df8>
 
 Estimated degrees of freedom:
 7.753  total = 8.75294 
@@ -4839,7 +4856,7 @@
 
 Formula:
 y ~ s(x1, x2, k = knots)
-<environment: 0x106dd2898>
+<environment: 0x105fac898>
 
 Estimated degrees of freedom:
 8.8962  total = 9.89616 
@@ -7468,7 +7485,7 @@
 
 Formula:
 y ~ s(x1, x2, k = knots)
-<environment: 0x10764e120>
+<environment: 0x106b16d10>
 
 Estimated degrees of freedom:
 2  total = 3 
@@ -7945,7 +7962,7 @@
 > ### * <FOOTER>
 > ###
 > cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed:  134.944 1.315 138.401 0 0 
+Time elapsed:  113.356 1.278 116.208 0 0 
 > grDevices::dev.off()
 null device 
           1 



More information about the Vegan-commits mailing list