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. >