data(ExomeCount) #pick an example count file
small_count <- ExomeCount[1:100, ] #reduce the size for speedy computations
## create a dummy test object
example_object <- new('ExomeDepth', test = small_count$Exome2, reference = small_count$Exome3)
## artifically create a couple of CNV calls for this test
example_object@CNV.calls <- data.frame(chromosome = c(1,7),
start = c(108778622, 61286538),
end = c(109000909,61296735))
data(Conrad.hg19)
print(example_object@CNV.calls)
example_object_annotated <- AnnotateExtra(x = example_object,
reference.annotation = Conrad.hg19.common.CNVs,
min.overlap = 0.1,
column.name = 'Conrad.hg19')
print(example_object_annotated@CNV.calls)
Run the code above in your browser using DataLab