inst/doc/auto-kmeans.R

In healthyR.ai: The Machine Learning and AI Modeling Companion to 'healthyR'

## ----include = FALSE----------------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  message = FALSE,
  warning = FALSE,
  fig.width = 8,
  fig.height = 4.5,
  fig.align = 'center',
  out.width = '95%',
  dpi = 100
)

## ----setup--------------------------------------------------------------------
library(healthyR.ai)
suppressPackageStartupMessages(library(dplyr))
suppressPackageStartupMessages(library(ggplot2))
suppressPackageStartupMessages(library(h2o))

## ----iris_data----------------------------------------------------------------
df_tbl <- iris

glimpse(df_tbl)

## ----automl_kmeas-------------------------------------------------------------
column_names <- names(iris)
target_col <- "Species"
predictor_cols <- setdiff(column_names, target_col)

## ----run_auto_ml, eval=FALSE--------------------------------------------------
# h2o.init()
# 
# output <- hai_kmeans_automl(
#   .data = df_tbl,
#   .predictors = predictor_cols,
#   .standardize = FALSE
# )
# 
# h2o.shutdown(prompt = FALSE)

## ----data_section, eval=FALSE-------------------------------------------------
# output$data

## ----autom_obj, eval=FALSE----------------------------------------------------
# output$auto_kmeans_obj

## ----best_model, eval=FALSE---------------------------------------------------
# output$model_id

## ----scree_plot, eval=FALSE---------------------------------------------------
# print(output$scree_plt)