R/randomHelpers.R

In schliebs/aidR: Load,

# Calculate Dirichlet-Polling Error intervals: Empirical Quantile Confidence

#' Dirichlet-sample of a multinomial election poll
#' @description Description
#' @param par1 parameter1
#' @param par2 parameter2
#' @return A data frame containing \code{n} rows of blabla.
#' @examples
#' x <- c(1,2,3)
#' mean(x)
#' @section Warning:
#' Do not operate heavy machinery within 8 hours of using this function.
#' @export
testLuca <- function(par1,par2){
  
  x <- c(1,2,3)
  return(x)
}