requiredDataFile = paste(system.file(package="MiRNAQCD"),
"/extdata/test_dataset_alpha_prep.dat", sep='')
myDataFrame <- read.table(file=requiredDataFile, header=TRUE)
requiredQtFile = paste(system.file(package="MiRNAQCD"),
"/extdata/test_dataset_alpha_qt.dat", sep='')
qtDataFrame <- read.table(file=requiredQtFile, header=TRUE)
myDataFrameCleaned <- miRNA_removeOutliers(myDataFrame, qtDataFrame)
Run the code above in your browser using DataLab