library("sRAP")
library("WriteXLS")
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)
RNA.qc(sample.table, expression.mat, project.name, project.folder, plot.legend=FALSE, color.palette=c("green","orange"))
Run the code above in your browser using DataLab