[Seqinr-commits] r1655 - pkg/R

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

Author: lobry
Date: 2009-10-09 08:23:09 +0200 (Fri, 09 Oct 2009)
New Revision: 1655

Modified:
   pkg/R/plotabif.R
Log:
new ylim

Modified: pkg/R/plotabif.R
===================================================================
--- pkg/R/plotabif.R	2009-10-09 06:19:42 UTC (rev 1654)
+++ pkg/R/plotabif.R	2009-10-09 06:23:09 UTC (rev 1655)
@@ -12,7 +12,7 @@
   chanel.names = c(1:4,105),
   DATA = paste("DATA", chanel.names[chanel], sep = "."),
   y = abifdata$Data[[DATA]][irange]/yscale,
-  ylim = c(0, max(y)),
+  ylim = c(min(y), max(y)),
   dyn = abifdata$Data[[paste("DyeN", chanel, sep = ".")]],
   main = paste(deparse(substitute(abifdata)), chanel, dyn, sep = " ; "),
   calibr = NULL,