R/spc.constant.calculation.A1.R

In burrm/lolcat: Miscellaneous Useful Functions

#' Control Chart Constant A1  
#' 
#' Calculate A1 control chart constant from Wheeler's SPC books.
#'
#' @param sample.size A scalar or vector of sample sizes
#' @param n.sigma How many standard errors to use (default 3 for most control charts)
#'
#' @return A scalar or vector with computed constants. 

spc.constant.calculation.A1 <- function(
  sample.size, 
  n.sigma = 3
) {
  sapply(sample.size, FUN = function(i) {
      n.sigma/(spc.constant.calculation.c2(i) * sqrt(i))
  })

}