[Seqinr-commits] r2131 - pkg/R

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

Author: jeanlobry
Date: 2021-06-14 11:14:27 +0200 (Mon, 14 Jun 2021)
New Revision: 2131

Modified:
   pkg/R/dotchart.uco.R
Log:
 

Modified: pkg/R/dotchart.uco.R
===================================================================
--- pkg/R/dotchart.uco.R	2021-05-25 12:22:25 UTC (rev 2130)
+++ pkg/R/dotchart.uco.R	2021-06-14 09:14:27 UTC (rev 2131)
@@ -1,6 +1,7 @@
 dotchart.uco <- function(x, numcode = 1, aa3 = TRUE, pt.cex = 0.7, 
   alphabet = s2c("tcag"), pch = 21, gpch = 20, bg = par("bg"), cex = 0.7,
-  color = "black", gcolor = "black", lcolor = grey(0.9), xlim, ...)
+  color = "black", gcolor = "black", lcolor = grey(0.9), xlim, 
+  offset = 0.4, ...)
 {
   if( is.null(names(x)) ) names(x) <- words( alphabet = alphabet )
   bcknames <- names(x)
@@ -37,7 +38,8 @@
 
   dotchart(x = x, labels = labels, groups = groups, gdata = gdata,
    pt.cex = pt.cex, pch = pch, gpch = gpch, bg = bg, color = color,
-   gcolor = gcolor, lcolor = lcolor, cex = cex, xlim, ...)
+   gcolor = gcolor, lcolor = lcolor, cex = cex, xlim = xlim, 
+   offset = offset, ...)
 #
 # Return invisibly for further plots
 #