# NOT RUN {
set.seed(1)
Counts = matrix(rpois(10*5, 1), ncol = 5)
rownames(Counts) <- paste0("Gene",1:10)
Tech = c(rep(FALSE,7), rep(TRUE,3))
set.seed(2)
SpikeInfo = data.frame(paste0("Gene",8:10), rgamma(3,1,1))
Data = newBASiCS_Data(Counts, Tech, SpikeInfo)
# }
Run the code above in your browser using DataLab