# NOT RUN {
data(cnvData)
# limit data for examples
exCNV <- cnvData$ID %in% paste0("P", 1:150)
exCOV <- covData$ID %in% paste0("P", 1:150)
exPHE <- phenoData$ID %in% paste0("P", 1:150)
# binary phenoType
results <- concur(cnv = cnvData[exCNV,],
X = covData[exCOV,],
pheno = phenoData[exPHE,],
phenoY = 'PHEB',
phenoType = 'bin',
nCore = 1L,
outFileKernel = NULL,
verbose = TRUE)
# continuous phenoType
results <- concur(cnv = cnvData[exCNV,],
X = covData[exCOV,],
pheno = phenoData[exPHE,],
phenoY = 'PHEC',
phenoType = 'cont',
nCore = 1L,
outFileKernel = NULL,
verbose = TRUE)
# }
Run the code above in your browser using DataLab