exppath <- system.file("extdata", "exptab.csv", package="tepr")
transpath <- system.file("extdata", "cugusi_6.tsv", package="tepr")
expthres <- 0.1
## Calculating averageandfilterexprs to call countNA
expdf <- read.csv(exppath)
transdf <- read.delim(transpath, header = FALSE)
avfilttest <- averageandfilterexprs(expdf, transdf, expthres,
showtime = FALSE, verbose = FALSE)
## Testing countna
res <- countna(avfilttest, expdf, nbcpu = 1, verbose = FALSE)
Run the code above in your browser using DataLab