# Tout ce qui est relatif à l'échantillon aléatoire prélevé dans la réalité
cv$ech.z<-getech()#créee n valeurs aléatoires N(0;1) quand input$takeech est implémenté (quand le bouton takeech est pressé)
if(rv$lastAction=='reset'){
cv$ech.z<-NULL
SP$n.ic<<-0
SP$n.ic.z.inc.mu<<-0
SP$n.ic.z.noninc.mu<<-0
SP$pc.ic.z.inc.mu<<-0
SP$n.ic.t.inc.mu<<-0
SP$n.ic.t.noninc.mu<<-0
SP$pc.ic.t.inc.mu<<-0
SP$l.n.ic<<-list()
SP$l.pc.ic.z.inc.mu<<-list()
SP$l.pc.ic.t.inc.mu<<-list()
}
cv$ech.exist<-length(cv$ech.z)#ne pas prendre n mais calculer le nombre de valeurs dans l'échantillon juste pour s'assurer qu'un échantillon a été créé = le bouton action a été poussé
plot(c(0),c(0),type="l",lty=1,lwd=1,col="black",yaxt="n",bty="n",las=1,xaxs="i",yaxs="i",cex.lab=1,cex.axis=1,xlim=c(0,100),ylim=c(0,cv$yaxislim),ylab="density",xlab="",xaxp=c(0,100,20))#trace une courbe a partir de tous les couples x;y, et la colore en rouge. bty : A character string which determined the type of box which is drawn about plots. If bty is one of "o" (the default), "l", "7", "c", "u", or "]" the resulting box resembles the corresponding upper case letter. A value of "n" suppresses the box. xaxt="n" = pas dessiner axe des x
plot(cv$ech.x,cv$ech.y,pch=23,cex=1,lty=2,lwd=1,col="black",bty="n",las=1,xaxs="i",yaxs="i",cex.lab=1,cex.axis=1,xlim=c(0,100),ylim=c(0,0.50),ylab="",xlab="",xaxp=c(0,100,20),xaxt="n",yaxt="n")#trace une courbe a partir de tous les couples
#legend(1,0.25,c(bquote(paste("%IC couvrant ",mu," quand ",sigma^2," est connue ",sep="")),bquote(paste("%IC couvrant ",mu," quand ",sigma^2," est inconnue ",sep=""))))
text(SP$n.ic.lim*0.05,0.20,labels=bquote(paste(sigma^2," connue ",sep="")),cex=1,pos=4)#"%IC couvrant ",mu," quand ",