survival data preprocessing

surv_preprocessing.R

# Pre processing----
df <- df %>% select(-6)
colnames(df)[c(4,5,6)] <- c("age", "begin", "disease")

#  Encoding the  categorical feature----
library(caret)
dmy <- dummyVars(" ~ .", data = df)
df_clean <- data.frame(predict(dmy, newdata = df)) %>% select(-c(1,6))
head(df_clean)