Chemistry Reference
In-Depth Information
LI1+ 0.71 1.35 0.247 0.56 -.252 3.05 13.6 5.469 -0.97
NA1+ 0.88 0.98 0.211 2.14 0.330 2.71 14.2 5.603 -0.80
BA2+ 1.08 2.94 0.183 11.7 1.068 2.90 13.4 4.980 -0.76
LA3+ 1.27 8.57 0.171 7.36 0.867 2.37 8.50 3.229 -0.53
AG1+ 4.28 0.87 0.074 6.21 0.793 0.80 12.0 -0.034 0.84
;
APPENDIX 8.2: SAS BACTERIAL BIOLUMINESCENCE—BINARY
METAL MIXTURE EXAMPLE
/* LA AND CE ARE THE CONCENTRATIONS OF LANTHANUM AND CERUM. */
/* PAPB IS THE MEASURED BIOLUMINESCENCE AFTER 15 MINUTES OF
EXPOSURE. */
DATA LACE;
INPUT LA CE PAPB @@;
PAPB = 100*((PAPB-.372)/(1-.372)); NORMZ = 100;
CARDS;
0 0.372 0 3.125 .359 0 6.25 .385 0 12.50 .481 0 25.00 .662
3.125 0.333 3.125 3.125 .370 3.125 6.25 .447 3.125 12.50 .533 3.125 25.00 .684
6.250 0.368 6.250 3.125 .419 6.250 6.25 .449 6.250 12.50 .568 6.250 25.00 .747
12.50 0.500 12.50 3.125 .548 12.50 6.25 .569 12.50 12.50 .629 12.50 25.00 .761
25.00 0.667 25.00 3.125 .725 25.00 6.25 .708 25.00 12.50 .757 25.00 25.00 .821
;
DATA LAN; SET LACE; IF CE = 0; RUN;
PROC PROBIT LOG10 INVERSECL LACKFIT DATA = LAN;/* PROC PROBIT A */
MODEL PAPB/NORMZ = LA/D = NORMAL ITPRINT;
OUTPUT OUT = PLAN P = PPROB;
RUN;
DATA LAN2; SET PLAN; PAPB = PAPB/100; RUN;
DATA CEN; SET LACE; IF LA = 0; RUN;
PROC PROBIT LOG10 INVERSECL LACKFIT DATA = CEN;/* PROC PROBIT B */
MODEL PAPB/NORMZ = CE/D = NORMAL ITPRINT;
OUTPUT OUT = PCEN P = PPROB;
RUN;
DATA NEW;
SET LACE;
IF LA NE 0; IF CE NE 0;
PAPB = PAPB/100;
LCE = LOG10(CE); LLA = LOG10(LA);
INTERLA = -3.5687+2.4985*LLA; /* Resulting Model from PROC
PROBIT A */
PLA = PROBNORM(INTERLA);
INTERCE = -4.3893+3.0872*LCE; /* Resulting Model from PROC
PROBIT B */
PCE = PROBNORM(INTERCE);
EXPECT = PLA+PCE;
RUN;
PROC GLM DATA = NEW;
MODEL PAPB = PLA PCE PLA*PCE/CLPARM;
RUN;