Displaying 1 result from an estimated 1 matches for "ssexpdecayandconstantinflow".
2009 Nov 12
0
writing selfStart models that can deal with treatment effects
...data);
lmFit <- lm(log(xy[, "y"]) ~ xy[, "x"]);
coefs <- coef(lmFit);
T0 <- exp(coefs[1]);
aL <- -coefs[2]*0.99;
aN <- 0.0001;
value <- c(aL, aN, T0);
names(value) <- mCall[c("aL", "aN", "T0")];
value
}
SSexpDecayAndConstantInflow <- selfStart(expDecayAndConstantInflowModel,
expDecayAndConstantInflowModelInit, c("aL", "aN", "T0"))
Ignoring the treatment effects, the routines seem to work find:
-----------------------------------
> getInitial(Count ~ SSexpDecayAndConstantInflow(B0, Time,...