# NOT RUN {
r.glm <- glm(Survived ~ ., data=Untable(Titanic), family=binomial)
Cstat(r.glm)
# default interface
Cstat(x = predict(r.glm, method="response"),
resp = model.response(model.frame(r.glm)))
# }
Run the code above in your browser using DataLab