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
}
MeikeSteinhilber/sprtt documentation built on Jan. 19, 2024, 1:56 a.m.