## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

## ----eval=FALSE---------------------------------------------------------------
# library(earthUI)
# launch()

## ----eval=FALSE---------------------------------------------------------------
# # Programmatic equivalent using the allowed function:
# mat <- build_allowed_matrix(c("sale_age", "living_area", "lot_size"))
# func <- build_allowed_function(mat, block_degree1 = "sale_age")
# result <- fit_earth(df, "sale_price", predictors,
#                     degree = 2L, allowed_func = func)

## ----eval=FALSE---------------------------------------------------------------
# demo_file <- system.file("extdata", "Appraisal_1.csv", package = "earthUI")
# df <- import_data(demo_file)