[自留]R语言例题（23-2-22）

惠若琪身高找对象。中国成年男士平均身高169.7，标准差5.9。

需要范围（187-197），问淘汰了多少男性？

---

miu <- 169.7
sigma <- 5.9
h <- c(187,192,197)
z <- (h-miu)/sigma
z

plot(x,y,type = "l")
fill(x[x<=z],y[x<=z])
pnorm(z)