evaluate the fuzzy system from a fit on some given data
evaluate_fuzzy_system(fs, data, params, verbose = FALSE)
Arguments
- fs
the fuzzy system to evaluate (as a named list)
- data
the data to evaluate the fuzzy system on
- params
the fuzzycoco parameters. probably not needed...
- verbose
whether to be verbose
Value
the evaluation as a named list:
Examples
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)
res <- evaluate_fuzzy_system(fit$fuzzy_system, cbind(x, y), fit$params)
print(res$metrics$rmse)
#> [1] 1.316431