# NOT RUN {
library(clustcurv)
library(survival)
data(veteran)
# Survival: 2 groups k-means
s2 <- ksurvcurves(time = veteran$time, status = veteran$status,
x = veteran$celltype, k = 2, algorithm = "kmeans")
data.frame(level = s2$level, cluster = s2$cluster)
# Survival: 2 groups k-medians
s22 <- ksurvcurves(time = veteran$time, status = veteran$status,
x = veteran$celltype, k = 2, algorithm = "kmedians")
data.frame(level = s22$level, cluster = s22$cluster)
# }
Run the code above in your browser using DataLab