# assign mtcars to df
df <- mtcars
# add value labels to "am"
df <- add_val_labs(
data = df,
vars = "am",
vals = c(0, 1),
labs = c("automatic", "manual")
)
# add numerical range value labels to "mpg"
df <- add_quant1(df, mpg, qtiles = 4)
df_a <- sselect(df, "am")
df_b <- sselect(df, "mpg")
df_c <- sselect(mtcars, "cyl")
df_all <- scbind(df_a, df_b, df_c)
head(df_all)
get_val_labs(df_all)
Run the code above in your browser using DataLab