ass7q1

set.seed(1)
heigths <- rnorm(n = 1000, mean = 1.70, sd = .1)
plot(density(heigths), main = 'Simulating Heights')


set.seed(1)
heigths2 <- rnorm(n = 10000, mean = 1.70, sd = .1)
lines(density(heigths2), col = 'red', lwd =2)

set.seed(1)
heigths2 <- rnorm(n = 10000, mean = 1.70, sd = .1)
lines(density(heigths2), col = 'blue', lwd =2)

c(qnorm(.05, mean = 1.70, sd = .1),qnorm(.95, mean = 1.70, sd = .1))

quantiles <- seq(0, 1, by = .01)
qvalues <- qnorm(quantiles)
plot(qvalues,
     type = "l", # We want a line graph
     xaxt = "n", # No x-axis
     xlab="Probability Density",
     ylab="Z-scores")

z_values=seq(0,1,by=0.05)
pnorm(z_values)