[R] lme: extract result-function

[Christof Kluß]

Hi,

mod <- lme(A ~ -1 + B+C+D+E+F+G, random = ~1 | ...)

results in summary(mod)$coeff

B C D E F G (Intercept)
b c d e f g i

Now I'm interested in the function

f <- function(B,C,D,E,F,G) <- {
  return(i + b*B + c*C + d*D + e*E + f*F + g*G)
}

Is there a easier way to create such function with flexible number of
coefficient, than do it by hand?

thx
Christof