h2o 모델 추출 및 성능 평가

이 마지막 연습 문제에서는 AutoML leaderboard에서 최고 성능 모델을 추출해 보겠습니다. h2o 라이브러리와 test 데이터는 이미 로드되어 있으며, 다음 코드가 실행되어 있습니다:

automl_model <- h2o.automl(x = x, 
                           y = y,
                           training_frame = seeds_data_hf,
                           nfolds = 3,
                           max_runtime_secs = 60,
                           sort_metric = "mean_per_class_error",
                           seed = 42)