data(mtcars)
var_lab(mtcars$am) = "Transmission"
val_lab(mtcars$am) = c(automatic = 0, manual=1)
## Not run: 
# plot(f(mtcars$am))
# ## End(Not run)
table(f(mtcars$am))
summary(lm(mpg ~ am, data = mtcars)) # no labels  
summary(lm(mpg ~ f(am), data = mtcars)) # with labels 
summary(lm(mpg ~ f(unvr(am)), data = mtcars)) # without variable label 
Run the code above in your browser using DataLab