featureCounts -T 5 -s 1 -O -a refSeq.gtf -o output input.bamsource("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)