library(dplyr)
df <- tibble::tibble(
USUBJID = rep(1:6, each = 1),
TRTAN = c(1, 1, 2, 2, 3, 3),
BMIBL = c(25.1, 26.3, 24.8, NA, 23.4, 27.6)
)
mean_by(
data = df,
group_var = TRTAN,
uniq_var = BMIBL,
label = "BMI (kg/m^2)",
sec_ord = 1
)
mean_by(
data = df,
group_var = TRTAN,
uniq_var = BMIBL,
label = "BMI (kg/m^2)",
sec_ord = 1,
precision_override = 2
)
mean_by(
data = df,
group_var = TRTAN,
uniq_var = BMIBL,
label = "BMI (kg/m^2)",
sec_ord = 1,
use_sas_round = TRUE
)
df2 <- tibble::tibble(
USUBJID = c(1, 2, 3, 4),
TRTAN = c(1, 1, 3, 3),
BMIBL = c(25.1, 26.3, 23.4, 27.6)
)
mean_by(
data = df2,
group_var = TRTAN,
uniq_var = BMIBL,
label = "BMI (kg/m^2)",
sec_ord = 1
)
Run the code above in your browser using DataLab