library(easyml) # https://github.com/CCS-Lab/easyml
# Gaussian
data("prostate", package = "easyml")
results <- easy_support_vector_machine(prostate, "lpsa",
n_samples = 10,
n_divisions = 10,
n_iterations = 2,
random_state = 1, n_core = 1)
# Binomial
data("cocaine_dependence", package = "easyml")
results <- easy_support_vector_machine(cocaine_dependence, "diagnosis",
family = "binomial",
preprocesss = preprocess_scale,
exclude_variables = c("subject"),
categorical_variables = c("male"),
n_samples = 10,
n_divisions = 10,
n_iterations = 2,
random_state = 1, n_core = 1)
Run the code above in your browser using DataLab