library(ggplot2)
# Use a smaller sample for faster execution
diamonds_small <- diamonds[sample(nrow(diamonds), 1000), ]
diamonds_small %>%
rwa(outcome = "price",
predictors = c("depth","carat", "x", "y", "z"),
applysigns = TRUE) %>%
plot_rwa()
Run the code above in your browser using DataLab