Skip to content
Prev 307376 / 398506 Next

Need some help reproducing a graph

Hello,

Try


qq <- qnorm(0.975)
x <- 90 + c(-1, 1)*qq*10

f <- function(x) dnorm(x, 90, 10)
curve(f, from = 60, to = 120)
segments(x, 0, x, f(x))


Hope this helps,

Rui Barradas
Em 09-10-2012 00:48, dLevy escreveu: