library(flightdeck)
data(cars)
reg <- lm(log(dist) ~ log(speed), data = cars)
actual <- cars$dist
predicted <- exp(reg$fitted.values)
fdPanelRegressionMetrics(actual, predicted) %>%
fdPreview("Regression Metrics")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.