# NOT RUN {
data(bottle.df)
## transform with respect to manganese
alr(Mn~., bottle.df, "Number")
## transform the data with respect to barium, but removing the
## grouping in column 1
alr(Ba~., bottle.df[,-1])
# }
Run the code above in your browser using DataLab