[Analogue-commits] r253 - pkg/tests/Examples
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Thu Feb 9 13:57:17 CET 2012
Author: gsimpson
Date: 2012-02-09 13:57:17 +0100 (Thu, 09 Feb 2012)
New Revision: 253
Modified:
pkg/tests/Examples/analogue-Ex.Rout.save
Log:
update example checking master
Modified: pkg/tests/Examples/analogue-Ex.Rout.save
===================================================================
--- pkg/tests/Examples/analogue-Ex.Rout.save 2012-02-09 12:43:26 UTC (rev 252)
+++ pkg/tests/Examples/analogue-Ex.Rout.save 2012-02-09 12:57:17 UTC (rev 253)
@@ -29,7 +29,7 @@
Loading required package: grid
Loading required package: MASS
Loading required package: princurve
-This is analogue 0.8-0
+This is analogue 0.8-1
>
> assign(".oldSearch", search(), pos = 'CheckExEnv')
> cleanEx()
@@ -1688,8 +1688,8 @@
k: 10
No. of folds: 1
- R2 avgBias maxBias RMSEP RMSEP2 s1 s2
-1 0.90065 -0.029184 -4.6765 2.214 NA NA NA
+ R2 avgBias maxBias RMSEP RMSEP2 s1 s2
+1 0.90107 0.0070881 -4.4826 2.2102 NA NA NA
>
> ## n k-fold CV (k == 10, n = 10)
> cv.nkfold <- crossval(mod, kfold = 10, folds = 10, method = "kfold")
@@ -1702,8 +1702,8 @@
k: 10
No. of folds: 10
- R2 avgBias maxBias RMSEP RMSEP2 s1 s2
-1 0.90095 -0.018397 -4.4867 2.2103 2.219 0.19676 2.2103
+ R2 avgBias maxBias RMSEP RMSEP2 s1 s2
+1 0.9009 -0.0095555 -4.4787 2.2111 2.2203 0.20205 2.2111
>
> ## bootstrap with 250 bootstrap samples
> cv.boot <- crossval(mod, method = "bootstrap", nboot = 250)
@@ -7017,7 +7017,7 @@
> ### * <FOOTER>
> ###
> cat("Time elapsed: ", proc.time() - get("ptime", pos = 'CheckExEnv'),"\n")
-Time elapsed: 25.603 1.419 27.033 0 0
+Time elapsed: 23.044 1.291 24.51 0 0
> grDevices::dev.off()
null device
1
More information about the Analogue-commits
mailing list