x <- 1:10
boxcox_tr(x, -2)
boxcox_tr(x, 0)
boxcox_tr(x, 0.5)
boxcox_tr(x, 2)
# plot functions
curve(boxcox_tr(x, 1.5), 1, 5,
main = "Box Cox transform", xlab = "x",
ylab = "Boxcox(x, lambda)", col = "red"
)
curve(boxcox_tr(x, -2), 1, 5, col = "green", add = TRUE)
curve(boxcox_tr(x, 0), 1, 5, col = "blue", add = TRUE)
curve(boxcox_tr(x, 0.5), 1, 5, col = "black", add = TRUE)
curve(boxcox_tr(x, 1), 1, 5, col = "pink", add = TRUE)
legend("topleft",
legend = rev(c(-2, 0, 0.5, 1, 1.5, "lambda")),
col = rev(c("green", "blue", "black", "pink", "red", NA)), lty = 1
)
Run the code above in your browser using DataLab