# \donttest{
# Simulate data for 500 genes and 2 replicates with 40% dropout
sim <- Simulate_relative_bakRData(500, 100000, nreps = 2, p_do = 0.4)
# Fit data with fast implementation
Fit <- bakRFit(sim$bakRData)
# Quantify dropout
DO_plots <- VisualizeDropout(Fit)
# }
Run the code above in your browser using DataLab