evaluateCorrection <- function(X, Y, what = c("duplo", "PCA"), ...) {
what <- match.arg(what)
switch(what,
duplo = evaluateDuplos(X, Y, ..., perMetabolite = FALSE),
evaluatePCA(X, Y, ..., perBatch = FALSE))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.