Tugas Prof Arif.docx

n events median 0.95LCL 0.95UCL Kelompok=Treatment 21 Kelompok=Placebo 21

9 21

23 8

16 4

NA 12

> plot(.Survfit, col=1:2, lty=1:2, mark.time=TRUE)

> legend("bottomleft", legend=c("Treatment","Placebo"), title="Kelompok", + col=1:2, lty=1:2, bty="n")

> quantile(.Survfit, quantiles=c(.25,.5,.75)) $quantile 25 50 75 Kelompok=Treatment 13 23 NA Kelompok=Placebo 4 8 12

$lower 25 50 75 Kelompok=Treatment 6 16 23 Kelompok=Placebo 2 4 8

$upper 25 50 75 Kelompok=Treatment NA NA NA Kelompok=Placebo 8 12 NA