File:TnormPDF.png

I, the copyright holder of this work, hereby publish it under the following license:

This work is licensed under the Creative Commons Attribution 3.0 License. https://creativecommons.org/licenses/by/3.0/CC-BY-3.0Creative Commons Attribution 3.0truetrue

R source code:

dtnorm <- function(x,mu=0,sd=1,a=-Inf,b=Inf) {
  dnorm(x,mu,sd) / (pnorm(b,mu,sd) - pnorm(a,mu,sd))
}
x <- seq(-10,10,len=200)
y1 <- dtnorm(x,mu=-8,sd=2 ,a=-10,b=10)
y2 <- dtnorm(x,mu= 0,sd=2 ,a=-10,b=10)
y3 <- dtnorm(x,mu= 9,sd=10,a=-10,b=10)
y4 <- dtnorm(x,mu= 0,sd=10,a=-10,b=10)

bitmap(file="tnormPDF.png",type="png256",width=4,height=4,res=300,pointsize=12)
par(mar=c(3,3,1,1))
par(mgp=c(1.8,0.7,0))
plot(range(x),range(c(y1,y2,y3,y4)),type="n",xlab="x",ylab="probability density")
lines(x,y1,lwd=3,lty=1)
lines(x,y2,lwd=3,lty=2,col="blue")
lines(x,y3,lwd=3,lty=3,col="red")
lines(x,y4,lwd=3,lty=4,col="orange")
dev.off()

This file is a candidate to be copied to Wikimedia Commons. Any user may perform this transfer; refer to Wikipedia:Moving files to Commons for details. If this file has problems with attribution, copyright, or is otherwise ineligible for Commons, then remove this tag and DO NOT transfer it; repeat violators may be blocked from editing. Other Instructions Endorse this file for transfer by adding |human=<your username> to this Template. If this file is freely licensed, but otherwise unsuitable for Commons (e.g. out of Commons' scope, still copyrighted in the US), then replace this Template with {{Do not move to Commons|reason=<Why it can't be moved>}} If you think that a local copy of this file should be retained, then replace this Template with {{Keep local|reason=<Why a local copy is needed>}} Please ensure that the file has a properly descriptive and unambiguous name before transferring; see Wikipedia:File mover#What files should be renamed? for details.

This file was suggested for transfer by a bot (User:Fbot). Please verify that this file is suitable for Commons before transferring it.