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

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

Author: kevin
Date: 2009-06-04 11:26:17 +0200 (Thu, 04 Jun 2009)
New Revision: 162

Modified:
   pkg/zooimage/R/RealTime.R
Log:
micron replaced by expression mu

Modified: pkg/zooimage/R/RealTime.R
===================================================================
--- pkg/zooimage/R/RealTime.R	2009-06-04 09:06:34 UTC (rev 161)
+++ pkg/zooimage/R/RealTime.R	2009-06-04 09:26:17 UTC (rev 162)
@@ -141,7 +141,7 @@
 loop.opts <- function(lst = ".", # path of the list file of the current FlowCAM experiment
   classif = ZIC, # Classifier
   type = NULL, # Null: barplot, "l" : line alpha code
-  SizeThreshold = NULL, # NULL or Size threshold in µm alpha code
+  SizeThreshold = NULL, # NULL or Size threshold in microns alpha code
   Export_Collages = NULL, # NULL or Number of collages by artificial sample alpha code
   ZIprevSmp = NULL, # Comparison with one previous sample
   ZIlist = NULL,  # Comparison several previous samples
@@ -623,7 +623,8 @@
       # Graphical representation
       plot(c(1, ncol(Table.Size), NA, NA), c(NA, NA, min(Table.Size), max(Table.Size)),
         xlab = "iterations", ylab = "abundance", 
-		main = paste("Total abundance for groups smaller than", getOption("SizeThreshold"), "µm",sep = " "))
+		    main = substitute(paste("Total abundance for groups smaller than ", thres, " ", mu * m), list(thres = getOption("SizeThreshold")))
+		  )
       legend(x = 1, y = max(Table.Size), legend = rownames(Table.Size), fill = as.numeric(as.factor(rownames(Table.Size))))
       for(i in 1 : nrow(Table.Size)){
         lines(Table.Size[i,], col = i)