回帰ループ：いくつかのdep変数といくつかのindep変数これらのindep変数の1つはdep変数に応じて異なる値をとります

Question

私はいくつかの従属変数（dep1、dep2、dep3と呼ぶ）を持ちます。それらの上に。私は回帰に常に含める独立変数a、b、cを持っています。ただし、独立変数d1、d2、d3は、数値が従属変数の数と一致する場合にのみ使用してください。これは、次のとおりです。

lm(dep1 ~ a + b + c + d1) 
lm(dep2 ~ a + b + c + d2) 
lm(dep3 ~ a + b + c + d3) 

より正確には、両方の私の従属変数と独立変数は、毎月の時系列（XTSオブジェクト）です。私は従属変数をマージして行列 "dep"を得る。 a、b、c、d1、d2、d3が行列indepに格納される。

これを自動的に行うループを作成することはできますか？

Answer 1

我々はpaste

v1 <- paste0("dep", 1:3) 
v2 <- paste0("d", 1:3) 
v3 <- paste(v1, paste(paste(letters[1:3], collapse=" + "), v2, sep=" + "), sep="~") 
lapply(v3, function(x) lm(x))