#Importing Libraries library(survival) library(survminer)

#Dataframe D1=data.frame(time=c(1,2,2,3,4,5,6,8,9,10),event=c(0,1,0,1,0,1,0,1,0,1)) kmc=with(D1,Surv(time,event));kmc

#Fitting the Kaplan-Meir Model kmc2 = surv_fit(Surv(time, event) ~ 1, data = D1); kmc2

summary(kmc2)

#Plotting Kaplan-Meir curve grid() plot(kmc, col = “blue”,
lwd = 2,
xlab = “Time”,
ylab = “Survival Probability”,
main = “Kaplan-Meier Curve”)

Plotting cumulative hazard

grid() plot( kmc2, fun = “cumhaz”,
col = “purple”, lwd = 2, xlab = “Time (Days)”, ylab = “Cumulative Hazard”, main = “Cumulative Hazard Function” ) grid()

{r}