[Analogue-commits] r181 - pkg/R

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

Author: gsimpson
Date: 2010-06-29 14:29:17 +0200 (Tue, 29 Jun 2010)
New Revision: 181

Modified:
   pkg/R/Stratiplot.formula.R
Log:
Don't allow 'names' to be checked when building data frame to be passed to Stratiplot.default

Modified: pkg/R/Stratiplot.formula.R
===================================================================
--- pkg/R/Stratiplot.formula.R	2010-06-29 12:28:35 UTC (rev 180)
+++ pkg/R/Stratiplot.formula.R	2010-06-29 12:29:17 UTC (rev 181)
@@ -11,7 +11,7 @@
     mf <- eval(mf, parent.frame())
     mt <- attr(mf, "terms")
     y <- model.response(mf, "numeric")
-    data <- data.frame(model.matrix(mt, mf))[,-1]
+    data <- data.frame(model.matrix(mt, mf), check.names = FALSE)[,-1]
     n.vars <- ncol(data)
     y <- rep(y, n.vars)
     if(is.null(ylab))