개요
- R bagging
- R 배깅
set.seed(42) # 랜덤값 고정
df = iris
library(adabag, quietly=T)
model = bagging(Species ~ ., df, mfinal=10 )
options(echo=T)
# 모델 정보
model$importance
# 시각화
png(width=700,pointsize=10)
plot(model$trees[[10]])
text(model$trees[[10]])
# 자가 테스트
pred = predict(model, df)
# 분류표
table(pred$class, df$Species)
# 정분류율
sum(pred$class==df$Species)/nrow(df)