#input data
intfile <- system.file("extdata", "inttable.txt", package="apmsWAPP")
counts <- int2mat(read.table(intfile))
baitfile <- system.file("extdata", "baittab.txt", package="apmsWAPP")
baittab <- read.table(baitfile)
# Normalization:
norm.counts <- norm.inttable(counts, baittab, norm = "upperquartile")
summary(norm.counts[[1]])
norm.counts[[2]]
Run the code above in your browser using DataLab