R/ExceedanceTools_arg_check.R

In ExceedanceTools: Confidence/Credible Regions for Exceedance Sets and Contour Lines

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"')
	}
}