statistics_sim_arg_check <- function(krige.obj, level, alternative)
{
if(is.null(krige.obj$sim))
{
stop("krige.obj$sim cannot be NULL. Try setting nsim > 0.")
}
if(!is.numeric(level) || length(level) > 1)
{
stop("level must be a numeric vector of length 1")
}
if(!(alternative == "less" || alternative == "greater" || alternative == "two.sided"))
{
stop('alternative must equal "two.sided" or "less" or "greater"')
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.