require(dplyr)
require(doParallel)
# define input data
data("hp_data")
input_data <-
hp_data |>
# create Intercept as an addressable term
mutate(Intercept = 1)
# evaluate different model forms
svc_mods <-
evaluate_models(
input_data = input_data,
target_var = "priceper",
vars = c("pef"),
coords_x = "X",
coords_y = "Y",
VC_type = "SVC",
time_var = NULL,
ncores = 2
)
head(svc_mods)
Run the code above in your browser using DataLab