Browse code

git-svn-id: file:///home/git/hedgehog.fhcrc.org/bioconductor/trunk/madman/Rpacks/crlmm@40000 bc3139a8-67e5-0310-9ffc-ced21a209358

Benilton Carvalho authored on 08/06/2009 14:54:39
Showing 1 changed files

... ...
@@ -45,7 +45,7 @@ getVarInEnv <- function(dataset, environ=.crlmmPkgEnv){
45 45
 
46 46
 list2SnpSet <- function(x, returnParams=FALSE){
47 47
   pd <- data.frame(SNR=x[["SNR"]], gender=x[["gender"]],
48
-                   batchQC=rep(x[["batchQC"]], length(ncol(x[["calls"]]))),
48
+                   batchQC=rep(x[["batchQC"]], ncol(x[["calls"]])),
49 49
                    row.names=colnames(x[["calls"]]))
50 50
   pdv <- data.frame(labelDescription=c("Signal-to-noise Ratio",
51 51
                       "Gender: Male (1) and Female (2)",