# NOT RUN {
RSD_1 <- compute_RSD(c(1:10))
data(FF4_qc) # load demo dataset
# RSD of QC:
RSD_2 <- sapply(FF4_qc[FF4_qc$sampleType == "QC", -c(1:5)], compute_RSD)
quantile(RSD_2)
# RSD of different types of QC samples:
# (each metabolote has its own RSD)
RSD_3 <- aggregate(FF4_qc[-c(1:5)], by = list(Type = FF4_qc$sampleType),
FUN = compute_RSD)
# }
Run the code above in your browser using DataLab