Ez a fájl szabadon másolható, terjeszthető és/vagy módosítható a GNU Szabad Dokumentációs Licenc feltételei alapján, az 1.2 vagy későbbi, a Free Software Foundation által publikált Nem Változtatható szakaszok, Címlapszövegek és Hátlapszövegek nélküli változat szerint. E licenc egy példánya a GNU Szabad Dokumentációs Licenc című fejezetben olvasható.http://www.gnu.org/copyleft/fdl.htmlGFDLGNU Free Documentation Licensetruetrue

	Ez a fájl a Creative Commons Nevezd meg! – Így add tovább! 3.0 Unported licenc alapján használható fel.
	A következőket teheted a művel: megoszthatod – szabadon másolhatod, terjesztheted, bemutathatod és előadhatod a művet feldolgozhatod – származékos műveket hozhatsz létre Az alábbi feltételekkel: Nevezd meg! – A szerzőt megfelelően fel kell tüntetned, hivatkozást kell létrehoznod a licencre és jelezned kell, ha a művön változtatást hajtottál végre. Ezt bármilyen észszerű módon megteheted, kivéve oly módon, ami azt sugallná hogy a jogosult támogat téged vagy a felhasználásod körülményeit. Így add tovább! – Ha megváltoztatod, átalakítod, feldolgozod ezt a művet, a közreműködésedet csak az eredetivel megegyező vagy hasonló licenc alatt terjesztheted.
	Ez a licenc a GFDL licenccsere során került a fájlra.http://creativecommons.org/licenses/by-sa/3.0/CC BY-SA 3.0Creative Commons Attribution-Share Alike 3.0truetrue

 

Ez PNG számítógépes grafika R segítségével készült.

q<-c(9.41, 9.92, 11.55, 11.60, 11.73, 12.00, 12.06, 13.02)
m=11
s=1
cs=c("grey35","navy","skyblue")
grenze=0.454

png(filename = "KS-Test.png", width=1200, height=768, pointsize=12)
par(mfrow=c(1,2), bg="lightgrey")
hist(q,breaks=4,freq=FALSE,col=cs[1],xlab=expression(x[i]),ylab="Wahrscheinlichkeit",main="Histogramm")
rug(q,col=cs[1],lwd=0.8)

x=seq(min(q)*0.9,max(q)*1.1,length=100)
lines(x,dnorm(x,mean=m,sd=s),col=cs[2],lwd=3)

F0=stepfun(q,c(0,(1:length(q))/length(q)),right=TRUE)
plot(F0,main="Vergleich der Verteilungsfunktionen",do.points=FALSE,col.hor=cs[1],col.vert=cs[1],col.points =cs[1],lwd=3,xlab=expression(x[i]),ylab="",xlim=range(x))
lines(x,pnorm(x,mean=m,sd=s),type="l",col=cs[2],lwd=3)
lines(x,pnorm(x,mean=m,sd=s)-grenze,type="l",col=cs[3],lwd=2)
lines(x,pnorm(x,mean=m,sd=s)+grenze,type="l",col=cs[3],lwd=2)
legend(x="bottomright",inset=0.01,legend=c("empirische Verteilung",expression(list("Normalverteilung",mu == m, sigma == s)),,"95% - Grenzen"),cex=0.8,col=cs,lwd=3)  

points(q[3],F0(q[3]), pch=8, col="red", cex=2)
dev.off()

 

Ez PNG számítógépes grafika R segítségével készült.