tcc <- simulateReadCounts(Ngene = 10000, PDEG = 0.2, DEG.assign = c(0.8, 0.2),
DEG.foldchange = c(4, 4), replicates = c(3, 3))
# Check the TCC class object.
tcc
# Check the fields of TCC class object.
names(tcc)
head(tcc$count)
# Check the normalization factors.
tcc <- calcNormFactors(tcc, norm.method = "tmm", test.method = "edger",
iteration = 1, FDR = 0.1, floorPDEG = 0.05)
tcc$norm.factors
# Check the p-values and q-values.
tcc <- estimateDE(tcc, test.method = "edger", FDR = 0.1)
tcc
# Compare the breakdowns of estimated DEGs with the truth.
head(tcc$estimatedDEG)
head(tcc$simulation$trueDEG)
# M-A plotting.
plot(tcc)
Run the code above in your browser using DataLab