SCM

SCM Repository

[matrix] Diff of /pkg/R/bCrosstab.R
ViewVC logotype

Diff of /pkg/R/bCrosstab.R

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 522, Mon Feb 7 09:25:25 2005 UTC revision 523, Mon Feb 7 09:25:50 2005 UTC
# Line 4  Line 4 
4      flist <- lapply(as.list(flist), function (x) as.factor(x)[drop = TRUE])      flist <- lapply(as.list(flist), function (x) as.factor(x)[drop = TRUE])
5    
6      nfac <- length(flist)      nfac <- length(flist)
7      if (nfac < 1) error("flist must be a non-empty list of factors")      if (nfac < 1) stop("flist must be a non-empty list of factors")
8                                          # Check for consistent lengths                                          # Check for consistent lengths
9      nobs <- length(flist[[1]])      nobs <- length(flist[[1]])
10      if (any(lapply(flist, length) != nobs))      if (any(lapply(flist, length) != nobs))

Legend:
Removed from v.522  
changed lines
  Added in v.523

root@r-forge.r-project.org
ViewVC Help
Powered by ViewVC 1.0.0  
Thanks to:
Vienna University of Economics and Business Powered By FusionForge