# NOT RUN {
col_list <- list(
list("AGE", 1),
list(c("WEIGHT",
"SCREATININE",
"SERUMALT",
"DELDBP",
"DELSBP"),
2)
)
aht_trial_rounded <- round_columns(aht_trial2, col_list)
# }
Run the code above in your browser using DataLab