# \donttest{
library(rms)
data_path <- system.file("extdata", "logistic_data.csv", package = "RGS")
my_data <- read.csv(data_path)
# Define variables
u_variables <- c("u1", "u2")
covariates <- c("l1", "c1")
# create and set the datadist option globally
dd <- datadist(my_data)
options(datadist = "dd")
rgs_for_logistic(my_data, u_variables, covariates)
# }
Run the code above in your browser using DataLab