... | ... |
@@ -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)", |