10.3.2 Multiplication/Division

# 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()