R/is_sample.R

is.sample <- function(x){ # test for sameSample parameter
  if(!is.logical(x)){stop("The sameSample you entered is not a logical value!")}
  if(!is.na(x[2])){stop("The sameSample you entered is a vector!")}
}

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.