Ancova で使用する 1,000 の従属変数 (y) があります。独立変数 (x) はすべてのモデルで同じです。
Yvar1, Yvar2, …, Yvar1000, x1, x2
1 2 5 11 16
2 3 6 18 23
example$Y.to.use
各 Yvar の値を置き換える R コードが必要です。
私はこれを試しました:
for (i in 1:1000){
example$Y.to.use<- example$paste("Yvar",i, sep="")
# Error: attempt to apply non-function
paste("fitted.model",i)<-lme(log(Y.to.use+1) ~ x1*x2, data=example, random=~1| Exp/Person)
}
# Error in paste("fitted.model", i, sep = "") <- lme(log(Y.to.use+1) ~ x1*x2 : target of assignment expands to non-language object
各 Yvar の各近似モデルからの係数を含むテーブルを作成します。