cindyangelira · January 9, 2023 10:47
diff --git a/surv_preprocessing.R b/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)
	# 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)