# AL8-3.1

par(mfrow=c(2,2))
curve(dnorm(x,50,6),-3*6+50,3*6+50,xlim=c(35,65),ylim=c(0,0.4),xlab="x",ylab="tf")
curve(dnorm(x,50,2),-3*2+50,3*2+50,xlim=c(35,65),ylim=c(0,0.4),xlab="Otoskeskiarvo, n=9",ylab="tf")
curve(dnorm(x,50,6/sqrt(18)),-3*6/sqrt(18)+50,3*6/sqrt(18)+50,xlim=c(35,65),ylim=c(0,0.4),xlab="Otoskeskiarvo, n=18",ylab="tf")
curve(dnorm(x,50,1),-3*1+50,3*1+50,xlim=c(35,65),ylim=c(0,0.4),xlab="Otoskeskiarvo, n=36",ylab="tf")
mtext("Normaalijakauman tiheysfunktio",outer=T,line=-2)

x<-seq(-3*6+50,3*6+50,length=500)
tf<-dnorm(x,50,6)
plot(x,tf,type='l')