# NOT RUN {
## Generate count data and set thinning factor
## In practice, you would obtain mat from a real dataset, not simulate it.
set.seed(1)
n <- 10
p <- 1000
lambda <- 1000
mat <- matrix(lambda, ncol = n, nrow = p)
thinlog2 <- 1
## Thin read-depths
thout <- thin_all(mat = mat, thinlog2 = thinlog2)
## Compare empirical and theoretical proportions
mean(thout$mat) / lambda
2 ^ -thinlog2
# }
Run the code above in your browser using DataLab