.assertExperiment <- function(object) {
if(!is(object, "SerializedExperiment") && !is(object, "LoadedExperiment"))
stop("'object' needs to be of classes 'LoadedExperiment' or 'SerializedExperiment'")
}
.assertMultiAssayExperiment <- function(object) {
if(!is(object, "MultiAssayExperiment"))
stop("'object' needs to be of class 'MultiAssayExperiment'")
}
.assertScalar <- function(x) {
if(!is.vector(x) && length(x) == 1 && !is.list(x))
stop("'x' needs to be a scalar")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.