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

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

Author: kevin
Date: 2009-05-26 10:54:08 +0200 (Tue, 26 May 2009)
New Revision: 149

Modified:
   pkg/zooimage/R/ZIClass.r
Log:
ZIClass: new attribute "formula" to have an idea about formula used to create the classifier

Modified: pkg/zooimage/R/ZIClass.r
===================================================================
--- pkg/zooimage/R/ZIClass.r	2009-05-26 08:50:43 UTC (rev 148)
+++ pkg/zooimage/R/ZIClass.r	2009-05-26 08:54:08 UTC (rev 149)
@@ -76,6 +76,8 @@
 			predict = mypredict, k = k.xval, predictions = TRUE, ...)$predictions
 		attr(ZI.class, "kfold.predict") <- res
 		attr(ZI.class, "k") <- k.xval
+    attr(ZI.class, "formula") <- Formula
+    attr(ZI.class, "path") <- attr(df, "path")
 	}
 	return(ZI.class)
 }