R/data_n.R

In sigbertklinke/exams2moodle: Access routines to XML Moodle files and helper routines to simplify generating exercises for Moodle from the 'exams' package

#' @rdname data_n
#' @aliases data_n25
#' @aliases data_nsq
#' @title Number of observations
#' @description Generates a sequence of sample sizes in a range from `min=5` to `max` 
#' * whose root is an integer (`data_nsq`), and
#' * that are divisible only by 2 and 5 (`data_n25`)
#'
#' @param max integer: maximum sample size
#' @param min integer: minimum sample size (default: `5`)
#'
#' @return a sequence of integers
#' @export
#'
#' @examples
#' data_n(10)
#' data_nsq(1000)
#' data_n25(1000)
data_n <- function(max, min=5) {
  ceiling(min):floor(max)
}
  
#' @rdname data_n
#' @export
data_nsq <- function(max, min=5) {
  nobs <- sqrt(round(c(min, max)))
  (ceiling(nobs[1]):floor(nobs[2]))^2
}

#' @rdname data_n
#' @export
data_n25 <- function(max, min=5) {
  nobs <- round(min):round(max)
  nobs[divisor_25(nobs)]
}