[Vegan-commits] r2161 - pkg/vegan/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu May 10 10:26:06 CEST 2012
Author: jarioksa
Date: 2012-05-10 10:26:06 +0200 (Thu, 10 May 2012)
New Revision: 2161
Modified:
pkg/vegan/tests/Examples/vegan-Ex.Rout.save
Log:
update tests for r2160
Modified: pkg/vegan/tests/Examples/vegan-Ex.Rout.save
===================================================================
--- pkg/vegan/tests/Examples/vegan-Ex.Rout.save 2012-05-10 08:21:51 UTC (rev 2160)
+++ pkg/vegan/tests/Examples/vegan-Ex.Rout.save 2012-05-10 08:26:06 UTC (rev 2161)
@@ -1,5 +1,5 @@
-R version 2.15.0 Patched (2012-04-14 r59019) -- "Easter Beagle"
+R Under development (unstable) (2012-05-08 r59331) -- "Unsuffered Consequences"
Copyright (C) 2012 The R Foundation for Statistical Computing
ISBN 3-900051-07-0
Platform: x86_64-unknown-linux-gnu (64-bit)
@@ -154,14 +154,14 @@
> plot(ef)
> ordisurf(mod ~ pH, varechem, knots = 1, add = TRUE)
Loading required package: mgcv
-This is mgcv 1.7-13. For overview type 'help("mgcv-package")'.
+This is mgcv 1.7-16. For overview type 'help("mgcv-package")'.
Family: gaussian
Link function: identity
Formula:
y ~ poly(x1, 1) + poly(x2, 1)
-<environment: 0x3b58c00>
+<environment: 0x19711b8>
Total model degrees of freedom 3
GCV score: 0.0427924
@@ -4425,6 +4425,14 @@
> ##D ### Add species using xyz.convert function returned by ordiplot3d
> ##D sp <- scores(ord, choices=1:3, display="species", scaling=3)
> ##D text(pl$xyz.convert(sp), rownames(sp), cex=0.7, xpd=TRUE)
+> ##D ### Two ways of adding fitted variables to ordination plots
+> ##D ord <- cca(dune)
+> ##D ef <- envfit(ord ~ Moisture + A1, dune.env, choices = 1:3)
+> ##D ### 1. use argument 'envfit'
+> ##D ordiplot3d(ord, envfit = ef)
+> ##D ### 2. use returned envfit.convert function for better user control
+> ##D pl3 <- ordiplot3d(ord)
+> ##D plot(pl3$envfit.convert(ef), at = pl3$origin)
> ##D ### ordirgl
> ##D ordirgl(ord, size=2)
> ##D ordirgl(ord, display = "species", type = "t")
@@ -4764,14 +4772,14 @@
> vare.mds <- monoMDS(vare.dist)
> with(varechem, ordisurf(vare.mds, Baresoil, bubble = 5))
Loading required package: mgcv
-This is mgcv 1.7-13. For overview type 'help("mgcv-package")'.
+This is mgcv 1.7-16. For overview type 'help("mgcv-package")'.
Family: gaussian
Link function: identity
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x8d98370>
+<environment: 0x9012e08>
Estimated degrees of freedom:
6.4351 total = 7.43507
@@ -4787,7 +4795,7 @@
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x86d04d0>
+<environment: 0x88d2170>
Estimated degrees of freedom:
6.1039 total = 7.103853
@@ -4936,14 +4944,14 @@
> ## Map of PCNMs in the sample plot
> ordisurf(mite.xy, scores(pcnm1, choi=1), bubble = 4, main = "PCNM 1")
Loading required package: mgcv
-This is mgcv 1.7-13. For overview type 'help("mgcv-package")'.
+This is mgcv 1.7-16. For overview type 'help("mgcv-package")'.
Family: gaussian
Link function: identity
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x6b56e38>
+<environment: 0x8445ce8>
Estimated degrees of freedom:
8.9275 total = 9.927492
@@ -4956,7 +4964,7 @@
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x9397088>
+<environment: 0x940a710>
Estimated degrees of freedom:
7.7529 total = 8.75294
@@ -4969,7 +4977,7 @@
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x953fb68>
+<environment: 0x7eed968>
Estimated degrees of freedom:
8.8962 total = 9.89616
@@ -7501,14 +7509,14 @@
> ## add fitted surface of diversity to the model
> ordisurf(mod, diversity(dune), add = TRUE)
Loading required package: mgcv
-This is mgcv 1.7-13. For overview type 'help("mgcv-package")'.
+This is mgcv 1.7-16. For overview type 'help("mgcv-package")'.
Family: gaussian
Link function: identity
Formula:
y ~ s(x1, x2, k = knots)
-<environment: 0x8825e30>
+<environment: 0x9eec7f0>
Estimated degrees of freedom:
2 total = 3
@@ -7988,7 +7996,7 @@
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 52.033 0.299 53.846 0 0
+Time elapsed: 25.813 0.164 26.07 0 0
> grDevices::dev.off()
null device
1
More information about the Vegan-commits
mailing list