Question

(1) Generate 80 normally distributed random variables with the mean 30 and the standard deviation 8, and store them in the vector ‘rand.vec. Then plot their empirical distribution function. (2) Given a normal distribution with the mean 30 and the standard deviation 8, find the two values of x that contain the middle 70% of the normal curve area. (3) Calculate the probability for 2.5 < X < 10 in a Poisson distribution with the mean 6

use in R code

Answer 1

1)

set.seed(12344)
rand.vac<-rnorm(80,30,8)
randcdf=ecdf(rand.vac)
plot(randcdf,xlab = 'Sample Quantiles', ylab = '', main = 'Empirical Cumluative Distribution')