R/get_one_sample.R

Defines functions get_one_sample

get_one_sample <- function(y) {
  if (is.null(y) || (length(y) == 1)) {
    one_sample <- TRUE
  } else{
    one_sample <- FALSE
  }
  one_sample
}
Lucy-333/sprtt documentation built on Feb. 2, 2024, 8:28 p.m.