# lme: extract result-function

5 messages
Open this post in threaded view
|

## lme: extract result-function

 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 ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.
Open this post in threaded view
|

## Re: lme: extract result-function

 Hello, Try f <- function(response, regressors)         as.formula(paste(response, paste(regressors, collapse=" + "), sep=" ~ ")) (resp <- "A") (regr <- c(-1, LETTERS[2:7])) fmla <- f(resp, regr) Hope this helps, Rui Barradas Em 13-06-2012 09:21, Christof Kluß escreveu: > 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 > > ______________________________________________ > [hidden email] mailing list > https://stat.ethz.ch/mailman/listinfo/r-help> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html> and provide commented, minimal, self-contained, reproducible code. > ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.
Open this post in threaded view
|

## Re: lme: extract result-function

 In reply to this post by Christof Kluß Dear Christof, You want the predict() function. See ?predict.lme for the details. Best regards, Thierry PS Questions on lme() can be asked at r-sig-mixed models. ir. Thierry Onkelinx Instituut voor natuur- en bosonderzoek / Research Institute for Nature and Forest team Biometrie & Kwaliteitszorg / team Biometrics & Quality Assurance Kliniekstraat 25 1070 Anderlecht Belgium + 32 2 525 02 51 + 32 54 43 61 85 [hidden email] www.inbo.be To call in the statistician after the experiment is done may be no more than asking him to perform a post-mortem examination: he may be able to say what the experiment died of. ~ Sir Ronald Aylmer Fisher The plural of anecdote is not data. ~ Roger Brinner The combination of some data and an aching desire for an answer does not ensure that a reasonable answer can be extracted from a given body of data. ~ John Tukey -----Oorspronkelijk bericht----- Van: [hidden email] [mailto:[hidden email]] Namens Christof Kluß Verzonden: woensdag 13 juni 2012 10:21 Aan: [hidden email] Onderwerp: [R] lme: extract result-function 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 ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code. * * * * * * * * * * * * * D I S C L A I M E R * * * * * * * * * * * * * Dit bericht en eventuele bijlagen geven enkel de visie van de schrijver weer en binden het INBO onder geen enkel beding, zolang dit bericht niet bevestigd is door een geldig ondertekend document. The views expressed in this message and any annex are purely those of the writer and may not be regarded as stating an official position of INBO, as long as the message is not confirmed by a duly signed document. ______________________________________________ [hidden email] mailing list https://stat.ethz.ch/mailman/listinfo/r-helpPLEASE do read the posting guide http://www.R-project.org/posting-guide.htmland provide commented, minimal, self-contained, reproducible code.