# NOT RUN {
dtree(movie_contract, opt = "max") %>%
sensitivity(
vars = "legal fees 0 100000 10000",
decs = c("Sign with Movie Company", "Sign with TV Network"),
custom = FALSE
)
# }
Run the code above in your browser using DataLab