## Not run:
# ## 'oligoSetExample' created by the following
# data(locusLevelData)
# oligoSet <- new("oligoSnpSet",
# copyNumber=integerMatrix(log2(locusLevelData[["copynumber"]]/100), 100),
# call=locusLevelData[["genotypes"]],
# callProbability=locusLevelData[["crlmmConfidence"]],
# annotation=locusLevelData[["platform"]],
# genome="hg19")
# oligoSet <- oligoSet[!is.na(chromosome(oligoSet)), ]
# oligoSet <- oligoSet[chromosome(oligoSet) < 3, ]
# ## End(Not run)
data(oligoSetExample)
oligoSet
Run the code above in your browser using DataLab