反復交差検証 / Repeated Cross-Validationを用いたLasso[R]

データの読み込み library(haven) library(tidyr) # データの読み込みと前処理 auto <- haven::read_dta("http://www.stata-press.com/data/r9/auto.dta") auto <- auto %>% drop_na() # 全カラムに対してNAがない行を抽出 # foreign列を整数に変換 auto$foreign <- as.integer(auto$foreign) Repeated Cross-Validation …