# NOT RUN {
Data <- makeExampleBASiCS_Data(WithSpikes = TRUE)
Chain <- BASiCS_MCMC(Data, N = 10000, Thin = 10, Burn = 5000,
PrintProgress = FALSE)
DR <- BASiCS_DenoisedRates(Data, Chain)
# }
Run the code above in your browser using DataLab