您的訂閱是我製作影片的動力
訂閱點這裡~

若內容有誤，還請留言指正，謝謝您的指教

#影片程式碼
#單熱變數
data("iris")
features <- setdiff(names(iris), "Sepal.Length")
library(vtreat)#單熱 
library(dplyr)
onehot <- vtreat::designTreatmentsZ(iris, features, verbose = FALSE)
單熱 <- onehot %>%
  magrittr::use_series(scoreFrame) %>%        
  dplyr::filter(code %in% c("clean", "lev")) %>% 
  magrittr::use_series(varName)     
自變量 <- vtreat::prepare(onehot,iris,varRestriction = 單熱) %>% as.matrix()