Puis1bAsym1Prop_Int=function() # Appel de la procédure intercative pour l'approximation de la puissance asymptotique du test1b # de l'alternative H^{1b}_0={p0 <= p} contre H^{1b}_1={p < p0}. { N=as.integer(readline("Saisir la taille de l'échantillon : ")) # Saisie de la taille de l'échantillon N. P0=as.numeric(readline("Saisir la proportion P0 : ")) # Saisie de la proportion P0 définissant les hypothèses de l'alternative. Seuil=as.numeric(readline("Saisir le seuil du test : ")) # Saisie du seuil de signification Seuil. P=as.numeric(readline("Saisir le point P où calculer une estimation de la puissance : ")) # Saisie du point P où calculer une estimation de la puissance. Quant=qnorm(Seuil,lower.tail=TRUE) # quantile d'ordre alpha de la loi N(0 ; 1). Puis=pnorm(sqrt(N)*(P0-P)/sqrt(P*(1-P))+Quant*sqrt(P0*(1-P0)/(P*(1-P)))) # Approximation de la puissance asymptotique. options(digits=4) # Format d'affichage des résultats. return(Puis) # Renvoi de l'approximation de la puissance asymptotique. }