Nothing
check <- modules::module({
samplingVar <- function(samplingVar) {
anyNa <- any(is.na(samplingVar))
if (anyNa) stop("Missing values in sampling variances are not allowed.")
anyZero <- any(samplingVar <= 0)
if (anyZero) {
warning("There are zero sampling variances. They are replaced by 1e-05.")
samplingVar <- replace(samplingVar, samplingVar == 0, 1e-05)
}
samplingVar
}
})
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.