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
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 > > ______________________________________________ > R-help at r-project.org 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. >
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 Thierry.Onkelinx at inbo.be 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: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] Namens Christof Klu? Verzonden: woensdag 13 juni 2012 10:21 Aan: r-help at stat.math.ethz.ch 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 ______________________________________________ R-help at r-project.org 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. * * * * * * * * * * * * * 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.
Christof Klu? wrote> > mod <- lme(A ~ -1 + B+C+D+E+F+G, random = ~1 | ...) > ... > f <- function(B,C,D,E,F,G) <- { > return(i + b*B + c*C + d*D + e*E + f*F + g*G) > } >It looks like you are trying to compute contrasts the ugly way. Check estimable in package gmodels or the vignette of the multcomp package; in the latter, the usage example of lme is a bit hidden, but it works nevertheless. Dieter -- View this message in context: http://r.789695.n4.nabble.com/lme-extract-result-function-tp4633220p4633222.html Sent from the R help mailing list archive at Nabble.com.
Hello, Is it to re-create what "predict" is able to do? Best Regards, Pascal Le 12/06/13 17:21, Christof Klu? a ?crit :> 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 > > ______________________________________________ > R-help at r-project.org 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. >