x <- seq(-4, 4, length=100)
plotDistr(x, dnorm(x), xlab="Z", ylab="p(z)", main="Standard Normal Density")
x <- 0:10
plotDistr(x, pbinom(x, 10, 0.5), xlab="successes",
discrete=TRUE, cdf=TRUE,
main="Binomial Distribution Function, p=0.5, n=10")Run the code above in your browser using DataLab