survival2

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")

kmc2=survfit(Surv(time,event)~1,data=d1);kmc2

## Call: survfit(formula = Surv(time, event) ~ 1, data = d1)
## 
##      n events median 0.95LCL 0.95UCL
## [1,] 4      3      6       2      NA

summary(kmc2)

## Call: survfit(formula = Surv(time, event) ~ 1, data = d1)
## 
##  time n.risk n.event survival std.err lower 95% CI upper 95% CI
##     2      4       1    0.750   0.217       0.4259            1
##     6      2       1    0.375   0.286       0.0839            1
##    10      1       1    0.000     NaN           NA           NA