search for: trunorm

...end. x <- rnorm(100) hist(x, freq=F, main="Different Meanings of Normality") lines(density(x)) xseq1 <- seq( min(x), max(x), length.out=100) m1 <- mean(x) sd1 <- sd(x) obsNormal <- dnorm(xseq1, mean=m1, sd=sd1) lines( xseq1, obsNormal, lty=2, col="red") truNormal <- dnorm(xseq1) lines(xseq1, truNormal, lty=3, col="green") legend(0,0.4, legend=c("observed density", "normal with observed mean & sd", "normal with 'true' mean and sd"), lty=c(1,2,3), col=c("black", "red", "green&...