x <- exp(stats::rnorm(1000))
transformer <- find_transformation_parameters(
x = x,
method = "box_cox"
)
if (rlang::is_installed("ggplot2")) {
plot_residual_plot(
x = x,
transformer = transformer
)
# Plot only central 80% of the data.
plot_residual_plot(
x = x,
transformer = transformer,
centre_width = 0.80,
show_original = FALSE
)
}
Run the code above in your browser using DataLab