model <- fuzzycoco("regression", example_mtcars()$params, seed = 123)
x <- mtcars[c("mpg", "hp", "wt")]
y <- mtcars["qsec"]
fit <- fit_xy(model, x, y, progress = FALSE)
y2 <- predict_fuzzy_system(fit$fuzzy_system,x)
Run the code above in your browser using DataLab