# [Q6-2] 최적 하이퍼 파라미터를 찾고 결과분석
AdaBoost.model <- boosting(earthquateYN~., AdaBoost.trn, boos=TRUE,
                          mfinal=50)

AdaBoost.prey <- predict(AdaBoost.model, AdaBoost.tst[,-69])
AdaBoost.cfm <- table(AdaBoost.tst$earthquateYN, AdaBoost.prey$class)

Perf.Table[7,] <- perf_eval(AdaBoost.cfm) # 결과 저장
Perf.Table