[Archetypes-commits] r34 - branches/pkg-robust/R

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

Author: manuel
Date: 2010-03-26 09:13:37 +0100 (Fri, 26 Mar 2010)
New Revision: 34

Modified:
   branches/pkg-robust/R/archetypes-plot.R
Log:


Modified: branches/pkg-robust/R/archetypes-plot.R
===================================================================
--- branches/pkg-robust/R/archetypes-plot.R	2010-03-24 10:30:13 UTC (rev 33)
+++ branches/pkg-robust/R/archetypes-plot.R	2010-03-26 08:13:37 UTC (rev 34)
@@ -95,6 +95,9 @@
   if ( is.null(link.lty) )
     link.lty <- ifelse(w == 1, 2, 1)
 
+  if ( is.function(data.col) )
+    data.col <- data.col(w)
+
   plot.archetypes(x, y, adata.show = adata.show, data.pch = data.pch,
                   data.col = data.col, data.bg = data.bg(w),
                   link.col = link.col, link.lty = link.lty, ...)