R/checkBinPrior.R

In brechtdv/prevalence: Tools for Prevalence Assessment Studies

## check specification of SE and SP

checkBinPrior <-
function(x, name){
  if (inherits(x, "numeric")){
    out <- checkSeSp(list(dist = "fixed", par = x))

  } else if (inherits(x, "formula")){
    ## 'x' should be of length 2 ('~' + dist)
    if (length(x) != 2)
      stop("Formula specification of ", name, " is incorrect.\n",
           "See ?truePrev for more details.")

    call <- as.character(x)[[2]]
    dist2list(call, type = "prob")

  } else if (inherits(x, "list")){
    check <- checkSeSp(x)

  } else {
    stop(name, " should be specified as a list or a formula.\n",
         "See ?truePrev for more details.")
  }
}