#Gráfico da densidade normal padrão #com destaque para área acumulada até o quantil require(manipulate) manipulate( { curve(dnorm(x, 0, 1), -5, 5, ylab="f(x)") x <- seq(-5, q, by=0.05) fx <- dnorm(x, 0, 1) polygon(c(x, rev(x)), c(fx, rep(0, length(fx))), col="gray90") Pr <- round(pnorm(q, 0, 1), digits=3) legend("topleft", bty="n", legend=substitute(P(X