モデルにランダムな用語を含めることは、グレード間で共分散構造を誘導する方法です。学校のランダム係数は、同じ学校の異なる生徒間で非ゼロの共分散を引き起こし0が、学校が異なる場合は0です。
レッツ・書き込みなど、あなたのモデル
どこのインデックス学校と私のインデックス(各学校では)学生を。用語の学校sが中に描かれた独立した確率変数であるN(0 、τ )。E S 、iがで描画独立確率変数であるN(0 、σ
Ys,i=α+hourss,iβ+schools+es,i
sischoolsN(0,τ)es,i。
N(0,σ2)
このベクターは期待た値
労働時間の数によって決定されます。
[α+hourss,iβ]s,i
とY s '、i ' の間の共分散は、s ≠ s 'の場合は0です。これは、生徒が同じ学校にいない場合、期待値からの成績の逸脱が独立していることを意味します。Ys,iYs′,i′0s≠s′
間の共分散とY S 、私は"あるτとき、私は≠ I "、との差異Y S 、私はあるτ + σ 2と同じ学校の生徒の成績が彼らの期待値から相関逸脱を持っています。 。Ys,iYs,i′τi≠i′Ys,iτ+σ2
例とシミュレーションデータ
ここでは5校から50人の学生のための短いRシミュレーションがある(ここでは私が取る); 変数の名前は自己文書化されています。 σ2=τ=1
set.seed(1)
school <- rep(1:5, each=10)
school_effect <- rnorm(5)
school_effect_by_ind <- rep(school_effect, each=10)
individual_effect <- rnorm(50)
各生徒の期待される成績からの逸脱、つまり、という用語を、各学校の平均逸脱と一緒にプロットします(点線)。schools+es,i
plot(individual_effect + school_effect_by_ind, col=school, pch=19,
xlab="student", ylab="grades departure from expected value")
segments(seq(1,length=5,by=10), school_effect, seq(10,length=5,by=10), col=1:5, lty=3)
schoolsα+hoursβ
この例の分散行列
schoolses,i
⎡⎣⎢⎢⎢⎢⎢⎢A00000A00000A00000A00000A⎤⎦⎥⎥⎥⎥⎥⎥
10×10AA=⎡⎣⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢⎢2111111111121111111111211111111112111111111121111111111211111111112111111111121111111111211111111112⎤⎦⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥⎥.