trans.ang <- function(nc,nn){ 
pp <- nc/nn # Calcul des bornes sur la fonction transformée 
sp <- 1.96/(2*sqrt(nn)) 
pinf1 <- asin(sqrt(pp-1/(2*nn)))-sp 
psup1 <- asin(sqrt(pp+1/(2*nn)))+sp # Retour à la fonction d'origine 
pinf <- sin(pinf1)^2 
psup <- sin(psup1)^2 # Affichage du résultat brut, avec 2 chiffres signifcatifs & en pourcentage 
print(paste(pp,pinf,psup)) 

print(paste(round(pp,4),"[",round(pinf,4),";",round(psup,4),"]")) print(paste(round(pp*100,1),"% [",round(pinf*100,1),"% ;",round(psup*100,1),"% ]")) }