1. library(RNAseqStat2)
    2. library(airway)
    4. data("airway")
    6. row_counts <- as.data.frame(assay(airway))
    8. group_list <- as.character(colData(airway)$dex)
    10. data_i <- Create_DEGContainer(species = "Human",
    11.                               dataType = "Counts",
    12.                               idType = "ENSEMBL",
    13.                               expMatrix = row_counts,
    14.                               groupInfo = group_list,
    15.                               caseGroup = "trt")
    17. # 一步运行
    18. data_o <- runALL(object = data_i,dir = "output_test")

    image.png