# call data
data(laparotomy)
# define the function parameters
markers <- cbind(laparotomy$ddimer, laparotomy$log_leukocyte)
status <- factor(laparotomy$group, levels = c("not_needed", "needed"))
t <- 0.5
stat <- helper_TS(theta = t, markers = markers, status = status)
Run the code above in your browser using DataLab