# R program for box-cox analysis of additional exercise 2.5 of VHM 802

reu <- read.csv("R:/data_csv/hs02_5.csv")

library(MASS)
bc <- boxcox(calv1serv ~ as.factor(origin), data=reu, lambda=seq(-1, 1, 0.01))
bc