R
!!!モデル選択
https://logics-of-blue.com/%E3%83%A2%E3%83%87%E3%83%AB%E9%81%B8%E6%8A%9E_%E7%90%86%E8%AB%96%E7%B7%A8/
!!MuMIn が便利
 install.packages("MuMIn") 

*飽和モデルを作っておいて、（例 model0）

{{pre

library(MuMIn) 
options(na.action = "na.fail") 
 
 
dredge(model0, rank="AIC")
}}
* これで、AICの値の小さい最適なものから順に、モデルを選択してくれる。