18.7 Variables Analysed by Two Different Analytical Techniques

# Fig. 18.6.: Different methods to analyse the concentration in comparison library(StatDA) data(chorizon) id=chorizon[,"ID"] pdf("fig-18-6.pdf",width=8,height=8) par(mfcol=c(3,2),mar=c(4,4,2,2)) par(mfrow=c(2,2)) plot(chorizon[,"Fe_INAA"],chorizon[,"Fe2O3"],pch=3,cex=0.8, xlab="Fe, INAA [mg/kg]", ylab="Fe2O3, XRF [wt.-%]") plot(chorizon[,"Fe_INAA"],chorizon[,"Fe2O3"]*6994,pch=3,cex=0.8, xlab="Fe, INAA [mg/kg]", ylab="Fe, XRF [mg/kg]") abline(a=0,b=1) #identify(chorizon[,"Fe_INAA"],chorizon[,"Fe2O3"]*6994) text(64200,18184-4000,id[238],cex=0.85) text(47000,23709-4000,id[358],cex=0.85) text(12500,42593+4000,id[359],cex=0.85) text(35600,68400+4000,id[507],cex=0.85) plot(chorizon[,"Fe_INAA"],chorizon[,"Fe"]*6994,pch=3,cex=0.8, xlab="Fe, INAA [mg/kg]", ylab="Fe, aqua regia, ICP-AES [mg/kg]") plot(chorizon[,"Na_INAA"],chorizon[,"Na_XRF"],pch=3,cex=0.8, xlab="Na, INAA [mg/kg]", ylab="Na, XRF [mg/kg]") abline(a=0,b=1) dev.off()