SCM

SCM Repository

[matrix] Diff of /pkg/Matrix/R/spModels.R
ViewVC logotype

Diff of /pkg/Matrix/R/spModels.R

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

revision 3045, Mon Feb 16 14:39:35 2015 UTC revision 3046, Mon Feb 16 14:40:37 2015 UTC
# Line 275  Line 275 
275      is.matrix(attr(tms, "factors")) &&      is.matrix(attr(tms, "factors")) &&
276      is.language(vv <- attr(tms, "variables")) &&      is.language(vv <- attr(tms, "variables")) &&
277      vv[[1]] == as.symbol("list") &&      vv[[1]] == as.symbol("list") &&
278      all((vars <- sapply(as.list(vv[-1]), as.character)) %in% colnames(x))      all(vapply(as.list(vv[-1]), as.character, "") %in% colnames(x))
279        ## all((vars <- sapply(as.list(vv[-1]), as.character)) %in% colnames(x))
280      ## and we could go on testing vars      ## and we could go on testing vars
281  }  }
282    

Legend:
Removed from v.3045  
changed lines
  Added in v.3046

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