# \donttest{
# Load the data
data(liver)
# Give standard column names (required!)
colnames(liver) <- c("patient", "Y", "Delta", "X1", "X2", "X3", "X4")
liver <- liver[, c(-1, -6, -7)]
# Run the model
hp <- list(
homoscedastic = FALSE,
test_cop_name = "frank"
)
QRdepCens(liver, hp, var.estimate = FALSE)
# Takes a while if var.estimate = TRUE...
# }
Run the code above in your browser using DataLab