#load test data
data(simData)
# Create a 'countData' object from test data.
replicates <- c("simA", "simA", "simA", "simA", "simA", "simB", "simB", "simB", "simB", "simB")
groups <- list(NDE = c(1,1,1,1,1,1,1,1,1,1), DE = c(1,1,1,1,1,2,2,2,2,2))
CD <- new("countData", data = simData, replicates = replicates, groups = groups)
#estimate library sizes for countData object
libsizes(CD) <- getLibsizes(CD)
CD[1:10,]
dim(CD)
Run the code above in your browser using DataLab