KMC

library(survival)
library(survminer)

## Loading required package: ggplot2

## Loading required package: ggpubr

## 
## Attaching package: 'survminer'

## The following object is masked from 'package:survival':
## 
##     myeloma

d1=data.frame(time=c(2,4,6,10),
              event=c(1,0,1,1))
kmc=with(d1,Surv(time,event));kmc

## [1]  2   4+  6  10

plot(kmc)

plot(kmc,fun="cumhaz")