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

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

Author: romain
Date: 2009-05-19 17:03:37 +0200 (Tue, 19 May 2009)
New Revision: 134

Modified:
   pkg/zooimage/R/ZIClass.r
Log:
minor fix

Modified: pkg/zooimage/R/ZIClass.r
===================================================================
--- pkg/zooimage/R/ZIClass.r	2009-05-19 14:39:00 UTC (rev 133)
+++ pkg/zooimage/R/ZIClass.r	2009-05-19 15:03:37 UTC (rev 134)
@@ -246,7 +246,7 @@
 # {{{ confusion.bar
 # New function v 1.2-2 false positive and negative
 confusion.bar <- function(confmat, mar=NULL) {
-	mustbe(confmat, "matrix" )
+	mustbe(confmat, c("table", "matrix" ) )
 	Nn <- nrow(confmat)
 
 	## percent of correctly predicted objects in the test set
@@ -297,8 +297,8 @@
 	barplot(all2[,!is.na(all2[2,])], horiz=TRUE,
 		col=c("PeachPuff2", "green3", "green3", "lemonChiffon2"),
 		xaxt="n", las=1, space = 0)
-	text(valx[i,]  , row(valx) - 0.45 , Failure.mat , cex=0.7)
-	text(valx2[i,] , row(valx2)- 0.45 , 100 - Failure.mat , cex=0.7)
+	text(valx  , row(valx) - 0.45 , Failure.mat , cex=0.7)
+	text(valx2 , row(valx2)- 0.45 , 100 - Failure.mat , cex=0.7)
 
 	#### Ajout des légendes
   	legend(100, Nmat+(Nmat/15),