[Distr-commits] r283 - branches/distr-2.0/pkg/distrSim/R

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

Author: stamats
Date: 2008-09-01 13:45:01 +0200 (Mon, 01 Sep 2008)
New Revision: 283

Modified:
   branches/distr-2.0/pkg/distrSim/R/rbind-methods.R
Log:
minor bug in rbind? Peter, could you please check this.

Modified: branches/distr-2.0/pkg/distrSim/R/rbind-methods.R
===================================================================
--- branches/distr-2.0/pkg/distrSim/R/rbind-methods.R	2008-08-29 09:32:06 UTC (rev 282)
+++ branches/distr-2.0/pkg/distrSim/R/rbind-methods.R	2008-09-01 11:45:01 UTC (rev 283)
@@ -4,13 +4,13 @@
           f <- base::rbind; do.call(f,cal0)})
 
 setMethod("rbind", "SeqDataFrames",  function(x,...){
-    SL <- list(dots)
+    SL <- list(...)
     len <- length(SL)
     if (len >= 1)
        { if (!all(lapply(SL at data, is.data.frame)))
               stop("all elements must be data frames")
           f <- function(y) {list(ncol(y), names(y))}
-          g <- function(y) identical(f(y), f(object at data[[1]]))
+          g <- function(y) identical(f(y), f(y at data[[1]]))
           if (!all(lapply(SL at data, g)))
                stop("all elements must have the same column structure")
           vLl <- lapply(SL, function(y) length(y at data))