Analytical Chem istry - DePauw University

208 Analytical Chemistry 2.0> library("chemCal")> conc=c(0, 1.55e-3, 3.16e-3, 4.74e-3, 6.34e-3, 7.92e-3)> signal=c(0, 0.050, 0.093, 0.143, 0.188, 0.236)> model=lm(signal~conc)> summary(model)Call:lm(formula = signal ~ conc)Residuals:1 2 3 4 5 6-0.0013927 0.0027385 -0.0019058 0.0013377 -0.0010106 0.0002328Coefficients:Estimate Std. Error t value Pr(>|t|)(Intercept) 0.001393 0.001441 0.967 0.388conc 29.592733 0.300625 98.437 6.39e-08 ***---Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1Residual standard error: 0.001996 on 4 degrees of freedomMultiple R-Squared: 0.9996, Adjusted R-squared: 0.9995F-statistic: 9690 on 1 and 4 DF, p-value: 6.386e-08> samp=c(0.114, 0.114, 0.114)> inverse.predict(model,samp,alpha=0.05)$Prediction[1] 0.003805234$`Standard Error`[1] 4.771723e-05$Confidence[1] 0.0001324843$`Confidence Limits`[1] 0.003672750 0.003937719Figure 5.29 R session for completing Practice Exercise 5.7.