data(ExomeCount) #pick an example count file
small_count <- ExomeCount[1:100, ] #reduce the size for speedy computations
## remove exons without data below
small_count <- small_count[ small_count$Exome2 + small_count$Exome3 > 0, ]
example_object <- new('ExomeDepth', test = small_count$Exome2,
reference = small_count$Exome3,
formula = 'cbind(test, reference) ~ 1')
print(example_object)
print( mean(example_object@expected)) ## proportion of reads expected to match the test set
Run the code above in your browser using DataLab