# NOT RUN {
# Expression counts
set.seed(1)
Counts = Counts = matrix(rpois(50*10, 2), ncol = 10)
rownames(Counts) <- c(paste0("Gene", 1:40), paste0("Spike", 1:10))
# Technical information
Tech = c(rep(FALSE,40),rep(TRUE,10))
# Spikes input number of molecules
set.seed(2)
SpikeInfo <- data.frame(gene=rownames(Counts)[Tech],amount=rgamma(10,1,1))
# Creating a BASiCS_Data object (no batch effect)
DataExample = newBASiCS_Data(Counts, Tech, SpikeInfo)
# Creating a BASiCS_Data object (with batch effect)
BatchInfo = c(rep(1, 5), rep(2, 5))
DataExample = newBASiCS_Data(Counts, Tech, SpikeInfo, BatchInfo)
# Thanks to Simon Andrews for reporting an issue in previous version of this documentation
# }
Run the code above in your browser using DataLab