# load a pre-built GreyList object:
data(greyList)
# Get a karyotype file:
path <- system.file("extra", package="GreyListChIP")
fn <- file.path(path,"karyotype_chr21.txt")
# Replace the karyotype in the GreyList:
gl <- loadKaryotype(gl,fn)
Run the code above in your browser using DataLab