library(survival);library(MASS)
data(gehan) 
dim(gehan)
gehan[1:10,] #ŏ10̃f[^
#f[^̓Ă͂
Surv(gehan$time,gehan$cens)
ge.sf<-survfit(formula = Surv(time, cens) ~ treat, data = gehan)
summary(ge.sf)
plot(ge.sf,lty=1:2)
legend(locator(1),c("6-MP","control"),lty=c(1,2))
#2Q̍̌
plot(ge.sf,lty=1:2)
legend(locator(1),c("6-MP","control"),lty=c(1,2))


