2011/07/29

次回は9月2日(金)16:00- Rの出力から結果を読む

前回(7/29金)のエビ研でも、Mixed Model (Multilevel Model)の解析をRを用いて行いました。
1ヶ月あいてしまうと、データセットをRに読み込むところから躓いてしまい、解析にかかるまで時間がかかってしまいましたが、なんとか解析をすることができました。

次回は、この出力を、どのように読んで、論文等の表にするときにはどのように記述するのかをやってみたいと思います。

日 時:2011年9月2日(金)16:00~18:00
テーマ:Mixed Model (18)
場 所:医学部3号館 3階S308


前回演習で行った出力(次回に使う出力)を松長さんが送って下さいました。松長さんありがとうございます!


> a <- read.csv(file.choose(), header = T)
> attach(a)
> a$centses <- ses - meanses
> library(lme4)
要求されたパッケージ Matrix をロード中です
要求されたパッケージ lattice をロード中です

次のパッケージを付け加えます: 'Matrix'

The following object(s) are masked from 'package:base':

det


次のパッケージを付け加えます: 'lme4'

The following object(s) are masked from 'package:stats':

AIC

> results1 <- lmer(mathach ~ 1 + (1 | schid), data = a)
> summary(results1)

Linear mixed model fit by REML
Formula: mathach ~ 1 + (1 | schid)

Data: a   
AICBIClogLikdevianceREMLdev
4712347143-235584711647117

Random effects:
GroupsNameVarianceStd.Dev.
schid(Intercept)8.6142.9350
Residual39.1486.2569
Number of obs: 7185, groups: schid, 160

Fixed effects:   
EstimateStd. Errort value
(Intercept)12.63700.244351.72

> results2 <- lmer(mathach ~ 1 + meanses + schtype + (1 | schid), data = a)
> summary(results2)

Linear mixed model fit by REML
Formula: mathach ~ 1 + meanses + schtype + (1 | schid)

Data: a     
AICBIClogLikdevianceREMLdev
4695646991-234734694446946

Random effects:
GroupsNameVarianceStd.Dev.
schid(Intercept)2.31391.5211
Residual39.16146.2579
Number of obs: 7185, groups: schid, 160

Fixed effects: 
EstimateStd. Errort value
(Intercept)12.09630.198660.90
meanses5.33290.368614.47
schtype1.22530.30584.01

Correlation of Fixed Effects:
(Intr)meanss
meanses0.245 
schtype-0.698-0.356

> results3 <- lmer(mathach ~ meanses + schtype + centses + meanses*centses + schtype*centses + (1 + centses|schid), data = a)
> summary(results3)

Linear mixed model fit by REML
Formula: mathach ~ meanses + schtype + centses + meanses * centses + schtype * centses + (1 + centses | schid)
Data: a
AICBIClogLikdevianceREMLdev
4652446592-232524649646504
    
Random effects:
GroupsNameVarianceStd.Dev. Corr
schid(Intercept)2.381861.54333
centses0.101380.318410.392
Residual36.721136.05980
Number of obs: 7185, groups: schid, 160

Fixed effects:
EstimateStd. Error t value
(Intercept)12.11360.198860.93
meanses5.33910.369314.46
schtype1.21670.3064 3.97
centses 2.93880.155118.95
meanses:centses1.03890.2989 3.48
schtype:centses-1.6426 0.2398 -6.85

Correlation of Fixed Effects:
(Intr)meanssschtypcentssmnss:c
meanses0.245
schtype-0.697-0.356
centses0.0800.020-0.056
menss:cntss0.0190.079-0.0280.282 
schtyp:cnts -0.055 -0.0290.082-0.694-0.351


0 件のコメント:

コメントを投稿