![]() |
# Fig. 10.5.: Fe_XRF in C-horizon with linear transformations
library(StatDA) data(chorizon) Fe=chorizon[,"Fe_XRF"]/10000 pdf("fig-10-5.pdf",width=8,height=8) par(mfrow=c(3,1),mar=c(5,5,2,2)) plot(density(Fe),main="",xlab="Fe_XRF [wt.-%]",cex.lab=1.8,cex.axis=1.6) plot(density(Fe-3.43),main="",xlab="Fe_XRF centred by MEDIAN (3.43)", cex.lab=1.8,cex.axis=1.6) plot(density(Fe*10000),main="",xlab="Fe_XRF [mg/kg]",cex.lab=1.8,cex.axis=1.6) dev.off() |