# NOT RUN {
# process the first dataset for prostate cancer using the QEC basis species
datasets <- pdat_prostate()
pdat <- pdat_prostate(datasets[1], basis = "QEC")
# recompute the compositions using the rQEC values
pdat2 <- recomp(pdat, "rQEC")
# compare the results
nH2O_QEC <- pdat$pcomp$residue.basis[, "H2O"]
nH2O_rQEC <- pdat2$pcomp$residue.basis[, "H2O"]
plot(nH2O_QEC, nH2O_rQEC)
# the slower way (not that it makes much difference for this example)
pdat2.slow <- pdat_prostate(datasets[1], basis = "rQEC")
stopifnot(identical(pdat2, pdat2.slow))
# }
Run the code above in your browser using DataLab