R

list.files()
setwd('project')
library(survival)
df <- read.csv('sample.csv', header=TRUE)
data <- df[, c(1, 2, 3, 4, 5)]
model <- glm(data$OBJ ~ ., data=data, family=binomial(link='logit'))
model <- coxph(Surv(data$DUR, data$EVT) ~ ., data=data, method='breslow')
summary <- summary(model)
coef <- summary$coefficient

aic <- AIC(model)
bic <- BIC(model)

library(survival)
conc <- concordance(model)

odds <- exp(coef[, 1])
odds.low <- exp(coef[, 1] - 1.96 * coef[, 2])
odds.hi <- exp(coef[, 1] + 1.96 * coef[, 2])

require(car)
ttt <- Anova(model, type='III')

lrt <- anova(model, test='LRT')
sum(lrt$Deviance, na.rm=TRUE)

rao <- anova(model, test='Rao')
sum(rao$Rao, na.rm=TRUE)

library(aod)
wt <- wald.test(Sigma=vcov(model), b=coef(model), Terms=2:5)