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