Displaying 1 result from an estimated 1 matches for "cdurinf8".
Did you mean:
cdurinf6
2012 Nov 30
1
help on "stacking" matrices up
...-exp(-0.088*Tinf))*(exp(-0.088*(TIME6)))
CONC6 <-ifelse(TIME6<=Tinf,CDURINF6,CAFTINF6)
CDURINF7 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*TIME7))
CAFTINF7 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*Tinf))*(exp(-0.088*(TIME7)))
CONC7 <-ifelse(TIME7<=Tinf,CDURINF7,CAFTINF7)
CDURINF8 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*TIME7))
CAFTINF8 <-((Dose/Tinf)*(1/(0.088*76.9)))*(1-exp(-0.088*Tinf))*(exp(-0.088*(TIME8)))
CONC8 <-ifelse(TIME8<=Tinf,CDURINF8,CAFTINF8)
CONCF <-matrix(c(CONC1+CONC2+CONC3+CONC4+CONC5+CONC6+CONC7+CONC8))
plot(CONCF,type="l")...