# call data
data(laparotomy)
# define the function parameters
markers <- laparotomy[, -1]
status <- factor(laparotomy$group, levels = c("not_needed", "needed"))
event <- "needed"
score1 <- linComb(
markers = markers, status = status, event = event,
method = "scoring", resample = "none",
standardize = "none", direction = "<", cutoff.method = "Youden"
)
plotComb(score1, status)
score2 <- nonlinComb(
markers = markers, status = status, event = event,
method = "nsgam", resample = "cv", include.interact = FALSE, direction = "<",
standardize = "zScore", cutoff.method = "Youden"
)
plot.score2 <- plotComb(score2, status)
score3 <- mathComb(
markers = markers, status = status, event = event,
method = "distance", distance = "euclidean", direction = "auto",
standardize = "tScore", cutoff.method = "Youden"
)
plot.score3 <- plotComb(score3, status)
Run the code above in your browser using DataLab