featureCounts -T 5 -s 1 -O -a refSeq.gtf -o output input.bam
source("https://bioconductor.org/biocLite.R") biocLite("edgeR") head(mat) > Symbol sample1 sample2 sample3 ... 1 1 1 2 ... 2 10 11 2 ... group <- factor(1, 1, 2, ...) #レプリケイトは同じ数字 y <- calcNormFactors(y) design <- model.matrix(~group) y <- estimateDisp(y,design)