Displaying 1 result from an estimated 1 matches for "expdecayandconstantinflowmodelinit".
2009 Nov 12
0
writing selfStart models that can deal with treatment effects
...inear regression with 2 cell types and 4 tissue
type treatments using selfStart models
Following Ritz and Streibig (2009), I wrote the following routines:
##Selfstart
expDecayAndConstantInflowModel <- function(Tb0, time, aL, aN, T0){
exp(-time*aL)*(T0*aL+(-1+exp(time * aL))*Tb0 * aN)/aL
}
expDecayAndConstantInflowModelInit <- function(mCall, LHS, data){
print(paste("SelfStart mCall:", mCall));
print(attributes(mCall));
print(mCall[["aN"]]);
xy <- sortedXyData(mCall[["time"]], LHS, data);
lmFit <- lm(log(xy[, "y"]) ~ xy[, "x"]);
coefs <-...