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