2.7.2 Wahrscheinlichkeitsnetz

		# Wahrscheinlichkeitsnetz # Kola Daten #Sc - C data(chorizon,package="StatDA") dat <- chorizon$Sc_INAA pdf("wnetz1.pdf",width=5,height=5) par(mar=c(4,4,1,1)) qpplot.das(dat,qdist=qnorm,xlab="Scandium (INAA) im Kola C-Horizont [mg/kg]", ylab="Wahrscheinlichkeit in % entsprechend N(0,1)", pch=3,cex=0.7) dev.off()
		# Wahrscheinlichkeitsnetz # Kola Daten # Ni - O data(ohorizon,package="StatDA") dat <- ohorizon$Ni pdf("wnetz2.pdf",width=5,height=5) par(mar=c(4,4,1,1)) qpplot.das(log10(dat),qdist=qnorm,xlab="Nickel im Kola O-Horizont (log-Skala) [mg/kg]", ylab="Wahrscheinlichkeit in % entsprechend N(0,1)", pch=3,cex=0.7, logx=TRUE, logfinetick=c(5,10),logfinelab=c(10)) dev.off()