# NOT RUN {
library(dplyr)
data0 <- clinical %>% filter(ARM == "experimental")
data1 <- clinical %>% filter(ARM == "control")
calc_std_diff(
vars = c("BECOG", "SEX"),
data0 = data0,
weight0 = rep(1, nrow(data0)),
data1 = data1,
weight1 = rep(1, nrow(data1))
)
# }
Run the code above in your browser using DataLab