R/casdesc.R

In philippemichel/thesisph: Tout ce qu'il faut pour debuter un travail simple

#' taille echantillon etude descriptive
#' 
#' Calcul de la taille d'un echantillon pour une enquete purement descriptive (sondage...)
#' @param p proportion attendue ()
#' @param z risque alpha (0.05)
#' @param er erreur admissible (0.01)
#' @param nx taille population (10 000)
#' 
#' @import stats
#'
#' @return ncas taille de l'echantillon
#' @examples casdesc(p =0.5, z = 0.05, er = 0.1, nx = 10000)
#' 
#' @export
casdesc <- function(p, z = 0.05, er = 0.1, nx = 10000){
  if (p>1){return("Erreur, p > 1")}
  z <- qnorm(1-(z/2))
  zz <- z^2 * p *(1-p)
  ncas <- (zz/er^2)/(1+(zz/(er^2*nx)))
  return(round(ncas,0)+1)
}