library("sRAP")
dir <- system.file("extdata", package="sRAP")
expression.table <- file.path(dir,"MiSeq_cufflinks_genes_truncate.txt")
sample.table <- file.path(dir,"MiSeq_Sample_Description.txt")
project.folder <- getwd()
project.name <- "MiSeq"
expression.mat <- RNA.norm(expression.table, project.name, project.folder)
stat.table <- RNA.deg(sample.table, expression.mat, project.name, project.folder, box.plot=FALSE, ref.group=TRUE, ref="scramble",method="aov", color.palette=c("green","orange"))
RNA.bdfunc.fc(stat.table, project.name, plot.flag=FALSE, project.folder, species="human")
Run the code above in your browser using DataLab