lm(y~1)
q()
?licence
aml <- data.frame(time= c( 9, 13, 13, 18, 23, 28, 31, 34, 45, 48, 161, 5, 5, 8, 8, 12, 16, 23, 27, 30, 33, 43, 45), status= c( 1,1,0,1,1,0,1,1,0,1,0, 1,1,1,1,1,0,1,1,1,1,1,1), x = as.factor(c(rep("Maintained", 11), rep("Nonmaintained", 12) )))
save(aml,file= aml.rda:
save(aml,file="aml.rda",ascii=T)
ovarian <- read.table("data.ovarian", row.names=NULL, col.names= c("futime", "fustat", "age", "resid.ds", "rx", "ecog.ps"))
save(ovarian,file="ovarian.rda",ascii=T)
save(jasa1,file="heart.rda",ascii=T)
save(cancer,file="cancer.rda",ascii=T)
bladder
save(bladder,bladder2,file="bladder.rda")
lung<-cancer
save(lung,file="lung.rda",ascii=T)
leukemia<-aml
save(leukemia,file="../data/leukemia.rda",ascii=T)
names(lung)
lung[1:3,]
names(jasa1)
jasa1[1:3,]
names(bladder)
summary(bladder)
names(bladder2)
names(aml)
aml[1:3,]
names(ovarian)
ovarian[1:4,]
table(ovarian$resid.ds)
survdiff(Surv(futime,fustat)~resid.ds,data=ovarian)
coxph(Surv(futime,fustat)~resid.ds,data=ovarian)
table(ovarian$rx)
q()
