set.seed(1)
x <- rwnorm(5, mean = 90, sd = 5)
dwnorm(x, mean = 90, sd = 5, axial = FALSE)
dwnorm(x, mean = 90, sd = 5, axial = TRUE)
pwnorm(x, mean = 90, sd = 5)
qwnorm(c(.25, .5, .75), mean = 90, sd = 5)
Run the code above in your browser using DataLab