[Zooimage-commits] r131 - pkg/zooimage/R

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

Author: romain
Date: 2009-05-07 12:04:46 +0200 (Thu, 07 May 2009)
New Revision: 131

Modified:
   pkg/zooimage/R/ZIClass.r
Log:
- small bug in ZIclass

Modified: pkg/zooimage/R/ZIClass.r
===================================================================
--- pkg/zooimage/R/ZIClass.r	2009-05-07 09:34:21 UTC (rev 130)
+++ pkg/zooimage/R/ZIClass.r	2009-05-07 10:04:46 UTC (rev 131)
@@ -72,7 +72,7 @@
 		} else {
 			function(object, newdata) predict(object, newdata = newdata, type = "class")
 		}
-    	res <- cv(Classes, Formula, data = df, model = get(algorithm),
+    	res <- cv( attr(ZI.class, "classes" ), Formula, data = df, model = get(algorithm),
 			predict = mypredict, k = k.xval, predictions = TRUE, ...)$predictions
 		attr(ZI.class, "kfold.predict") <- res
 		attr(ZI.class, "k") <- k.xval