Nothing
# Verifies that the input data have the correct column names
check_colnames <- function(...) {
ind <- vapply(list(...), function(x) names(x)[1:3] ==
c("Code.Class", "Name", "Accession"), logical(3))
if (all(ind)) {
return(TRUE)
} else{
args <- vapply(match.call()[-1], deparse, character(1))
stop(paste("\n", args[apply(ind, 2, function(x) !all(x))],
"does not have the correct column names."))
}
}
# Verifies that the input data for ratioMethod are valid
check_data <- function(...) {
ind <- vapply(list(...), inherits, what = c("matrix", "data.frame"),
logical(1))
if (all(ind)) {
return(TRUE)
} else {
args <- vapply(match.call()[-1], deparse, character(1))
stop(paste("\n", args[!ind], "is not of class 'matrix' or 'data.frame'."))
}
}
# Verifies that the Code.Class includes all 4 types of genes
check_genes <- function(x) {
code_classes <- c("Endogenous", "Housekeeping", "Negative", "Positive")
genes_present <- code_classes %in% x$Code.Class
if (all(genes_present)) {
return(TRUE)
} else {
stop("Gene types missing: ",
paste(shQuote(code_classes[!genes_present]), collapse = ", "))
}
}
# Verifies that all input data have the same number of columns
check_ncol <- function(...) {
if (length(unique(vapply(list(...), ncol, integer(1)))) == 1) {
return(TRUE)
} else {
stop("All input data must have the same number of columns.")
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.