Displaying 1 result from an estimated 1 matches for "coeffa".
Did you mean:
coeff
2008 Aug 18
1
"nested" getInitial calls; variable scoping problems
...de showing the problem:
ssA <- selfStart(
model = function(x, Coeff, A)
{
paste(x, Coeff, A)
},
initial = function(mCall, data, LHS)
{
x <- eval(mCall[["x"]], data, parent.frame())
A <- eval(mCall[["A"]], data, parent.frame())
paste("CoeffA", x, A)
},
parameters = c("Coeff")
)
ssB <- selfStart(
model = function(x, Coeff, A)
{
paste(x, Coeff, A)
},
initial = function(mCall, data, LHS)
{
x <- eval(mCall[["x"]], data, parent.frame())
A <- eval(mCall[["...