Displaying 1 result from an estimated 1 matches for "dhexpinit".
Did you mean:
dbexpint
2002 Jul 19
1
selfStart function problem
...LHS is now "call", but I have not found
how to get the program handle it correctly. Has someone any idea? I am using R1.5.1
on Windows NT.
Lauri
My code is
> dhexp <- deriv(~ a*exp(b*(D+5.8)^(-c)), c("a","b","c"), function(D,a,b,c) {} )
>
> dhexpInit <- function(mCall, LHS, data) {
+ equation <- paste('log(',LHS,') ~ I((',mCall[["D"]],'+5.8)^-1.0)')
+ print(equation)
+ linear <- lm(as.formula(equation),data=data)
+ value <- c(exp(coef(linear)[1]), coef(linear)[2], 1.0)
+ names(va...