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

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

Author: romain
Date: 2009-05-07 12:09:55 +0200 (Thu, 07 May 2009)
New Revision: 132

Modified:
   pkg/zooimage/R/ZIClass.r
Log:
load gplots instead of gregmisc

Modified: pkg/zooimage/R/ZIClass.r
===================================================================
--- pkg/zooimage/R/ZIClass.r	2009-05-07 10:04:46 UTC (rev 131)
+++ pkg/zooimage/R/ZIClass.r	2009-05-07 10:09:55 UTC (rev 132)
@@ -95,7 +95,7 @@
 	mism <- 100 * (1 - ( sum(diag(Confu)) / sum(Confu) ) ) 
 	
 	# Change the number of digits to display
-	oldDigits <- options(digits = 4); on.exit(options(digits = oldDigits))
+	oldDigits <- options(digits = 4); on.exit(options(oldDigits))
 	cat("\nAlgorithm used:", algorithm, "\n")
 	cat("Mismatch in classification: ", mism, "%\n", sep = "")   
 	if (!is.null(k)) {
@@ -236,7 +236,7 @@
 	
 	require(RColorBrewer)
 	mypalette <- brewer.pal(maxval-1, "Spectral")
-	library(gregmisc)
+	library(gplots)
 	heatmap.2(confmat, col= c(0,mypalette), symm=TRUE, margin=margin, 
 		trace="both", Rowv=Rowv, Colv=Colv, cexRow=0.2 + 1/log10(nX), 
 		cexCol=0.2 + 1/log10(nY),tracecol="Black", linecol=FALSE)