[Analogue-commits] r407 - in pkg: . R
noreply at r-forge.r-project.org
noreply at r-forge.r-project.org
Fri Feb 14 23:40:46 CET 2014
Author: gsimpson
Date: 2014-02-14 23:40:45 +0100 (Fri, 14 Feb 2014)
New Revision: 407
Added:
pkg/R/performance.crossval.R
Modified:
pkg/NAMESPACE
Log:
adds a performance method for crossval objects.
Modified: pkg/NAMESPACE
===================================================================
--- pkg/NAMESPACE 2014-02-14 19:27:27 UTC (rev 406)
+++ pkg/NAMESPACE 2014-02-14 22:40:45 UTC (rev 407)
@@ -145,6 +145,7 @@
S3method(pcr, default)
S3method(pcr, formula)
S3method(performance, bootstrap.wa)
+S3method(performance, crossval)
S3method(performance, predict.wa)
S3method(performance, pcr)
S3method(performance, wa)
Added: pkg/R/performance.crossval.R
===================================================================
--- pkg/R/performance.crossval.R (rev 0)
+++ pkg/R/performance.crossval.R 2014-02-14 22:40:45 UTC (rev 407)
@@ -0,0 +1,5 @@
+`performance.crossval` <- function(object, ...) {
+ retval <- object$performance
+ class(retval) <- c("performance","data.frame")
+ retval
+}
More information about the Analogue-commits
mailing list