# identity, no transformation
model <- lm(Sepal.Length ~ Species, data = iris)
get_transformation(model)
# log-transformation
model <- lm(log(Sepal.Length) ~ Species, data = iris)
get_transformation(model)
# log-function
get_transformation(model)$transformation(.3)
log(.3)
# inverse function is exp()
get_transformation(model)$inverse(.3)
exp(.3)
Run the code above in your browser using DataLab