回帰を実行するために R を並行して実行しようとしています。私は降雪ライブラリを使用しようとしています (ただし、どのアプローチにも対応しています)。現在、実行に非常に時間がかかる次の回帰を実行しています。誰かがこれを行う方法を教えてもらえますか?
sales_day_region_ctgry_lm <- lm(log(sales_out+1)~factor(region_out)
+ date_vector_out + factor(date_vector_out) +
factor(category_out) + mean_temp_out)
私は次の道を歩み始めました:
library(snowfall)
sfInit(parallel = TRUE, cpus=4, type="SOCK")
wrapper <- function() {
return(lm(log(sales_out+1)~factor(region_out) + date_vector_out +
factor(date_vector_out) + factor(category_out) + mean_temp_out))
}
output_lm <- sfLapply(*no idea what to do here*,wrapper)
sfStop()
summary(output_lm)
しかし、このアプローチにはエラーがつきものです。
ありがとう!