library(survival)
# Use the dataset colon as example
# Select only the survival for these examples (etype == 2)
data_file_path <- paste0(tempdir(), "/df.csv")
write.csv(colon[colon$etype == 2, ], data_file_path, row.names = FALSE, na = "")
metadata <- {data.frame(
variable = c("id","study","rx","sex","age",
"obstruct","perfor","adhere","nodes","status",
"differ","extent","surg","node4","time",
"etype"),
data_type = c("nominal", "nominal", "nominal", "binary", "numerical",
"binary", "binary", "binary", "count", "binary",
"ordinal", "ordinal", "binary", "binary", "numerical",
"nominal"),
reference = c(NA, NA, "Obs", 0, NA,
0, 0, 0, NA, 0,
NA, NA, 0, 0, NA,
NA),
ordinal_levels = c(NA, NA, NA, NA, NA,
NA, NA, NA, NA, NA,
"1;2;3", "1;2;3;4", NA, NA, NA,
NA),
comments = NA
)}
metadata_file_path <- paste0(tempdir(), "/metadata.csv")
write.csv(metadata, metadata_file_path, row.names = FALSE, na = "")
processed_data <- process_data(data_file_path, metadata_file_path)
Run the code above in your browser using DataLab