data(ExampleData)
#Set up phenotype
phenotype <- pheno
names(phenotype) <- colnames(cnv)
#set up values for expr-meth-cnv in that order
tailLRL <- c('left', 'right', 'left')
#setup dataList
dataSet <- list(expr, meth, cnv)
data <- dataSet[[1]]
tibL <- copaStat(data, phenotype, tail='right', perms=100, permType='array')
Run the code above in your browser using DataLab