# [R] linear model in the repeated data type~

Austin, Matt maustin at amgen.com
Fri Jun 6 00:37:22 CEST 2008

```Apologies, the second method should have been

allCoefs <- vector("list", length(allFits))

for(i in 1:length(allFits)) allCoefs[[i]] <-  coef(allFits[[i]])

--Matt

-----Original Message-----
From: r-help-bounces at r-project.org [mailto:r-help-bounces at r-project.org] On Behalf Of Austin, Matt
Sent: Thursday, June 05, 2008 3:03 PM
To: Manli Yan
Cc: r-help at r-project.org
Subject: Re: [R] linear model in the repeated data type~

allFits <- lmList(y ~ t|id, data=table1, pool=FALSE)

allCoefs <- sapply(allFits, coef)  ## preferred by me

or

allCoefs <- list(length(allFits))
for(i in 1:length(allFits)) allCoef[[i]] <-  coef(allFits[[i]])

--Matt

________________________________
From: Manli Yan [mailto:manliyanrhelp at gmail.com]
Sent: Wednesday, June 04, 2008 9:12 PM
To: Austin, Matt
Cc: r-help at r-project.org
Subject: Re: [R] linear model in the repeated data type~

hi:lot thanks,how to use list to extract,I type  allFit\$coefficents,it came to nothing, such as I need to extract the estimates,how to do it by using list

2008/6/3 Austin, Matt <maustin at amgen.com<mailto:maustin at amgen.com>>:

library(nlme)
allFits <- lmList(y ~ t|id, data=table1, pool=FALSE)

or

allFits <- by(table1, table1\$id, function(x) lm(y ~ t, data=x))

Both ways store the results as a list, so you can access individual results using list extraction.

--Matt

-----Original Message-----
From: r-help-bounces at r-project.org<mailto:r-help-bounces at r-project.org> [mailto:r-help-bounces at r-project.org<mailto:r-help-bounces at r-project.org>] On Behalf Of Manli Yan
Sent: Tuesday, June 03, 2008 9:07 PM
To: r-help at r-project.org<mailto:r-help at r-project.org>
Subject: [R] linear model in the repeated data type~

here is the data:
y<-c(5,2,3,7,9,0,1,4,5)
id<-c(1,1,6,6,7,8,15,15,19)
t<-c(50,56,50,56,50,50,50,60,50)
table1<-data.frame(y,id,t)//longitudinal data

what  I want to do is to use the linear model for each id ,then get the estimate value,like:

fit1<-lm(y~t,data=table1,subset=(id==1))

but ,you can see the variable "id" is quite irregular,they are not arranaged in order and many number missing,if I write a loop by using "for",it will give me a lot "NA", and for sure ,I dont want to type id=## for about 500 times,any one know how to deal with it?

[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org<mailto:R-help at r-project.org> mailing list https://stat.ethz.ch/mailman/listinfo/r-help
and provide commented, minimal, self-contained, reproducible code.

[[alternative HTML version deleted]]

______________________________________________
R-help at r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help