library(survival)
a_survival_tree<-
survival_tree_matrix(
time=lung$time,
event=lung$status==2,
matrix_numeric=data.matrix(lung[,c(4,6:9),drop=FALSE]),
matrix_factor=data.matrix(lung[,5,drop=FALSE]))
a_distance<-
predict_distance_tree_matrix(
a_survival_tree,
matrix_numeric=data.matrix(lung[,c(4,6:9),drop=FALSE]),
matrix_factor=data.matrix(lung[,5,drop=FALSE]))
Run the code above in your browser using DataLab