R/is_acct.R

is.acct <- function(x){ # test for acc.fct
  if(!is.character(x)){stop("The acc.fct you entered is not of type character!")}
  if(!is.na(x[2])){stop("The acc.fct you entered is a vector!")}
  if(!(x %in% c("logistic") )){stop("The acc.fct you entered is not valid!")}
}

Try the TeachNet package in your browser

Any scripts or data that you put into this service are public.

TeachNet documentation built on May 2, 2019, 7 a.m.