18.3 Accuracy

# Fig. 18.1.: Analytical results for Al2O3 and Sm_INAA library(StatDA) # read data data(CHorSTANDARD) pdf("fig-18-1.pdf",width=9,height=4.5) par(mfrow=c(1,2),mar=c(4,4,2,2)) i=5 el=CHorSTANDARD[,i] plot(CHorSTANDARD[,1],el,ylab=paste(dimnames(CHorSTANDARD)[[2]][i],"[wt.-%]"),xlab="ID", ylim=c(mean(el)-2*sd(el),max(el)),cex.lab=1.2) abline(h=mean(el),col=1,lty=1,lwd=2) abline(h=c(mean(el)+sd(el),mean(el)-sd(el)),col=1,lty=2) abline(h=c(mean(el)+2*sd(el),mean(el)-2*sd(el)),col=1,lty=3) text(565,11.15,"510") i=76 el=CHorSTANDARD[,i] plot(CHorSTANDARD[,1],el,ylab=paste(dimnames(CHorSTANDARD)[[2]][i],"[mg/kg]"),xlab="ID",cex.lab=1.2) abline(h=mean(el),col=1,lty=1,lwd=2) abline(h=c(mean(el)+sd(el),mean(el)-sd(el)),col=1,lty=2) abline(h=c(mean(el)+2*sd(el),mean(el)-2*sd(el)),col=1,lty=3) dev.off()