x <-c (2,54,76,47,87,34,65) dnorm(54,mean(x),sd(x)) pnorm(54,mean(x),sd(x)) qnorm(0.1717431,mean(x),sd(x)) rnorm(25,mean(x),sd(x))
To embed this program on your website, copy the following code and paste it into your website's HTML: