s1.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "137 / 160", class = "factor"),
`Crude C-statistic` = 0.895, `Model-based C-statistic` = 0.899,
`Crude Λ (bits)` = 2.49, `Model-based Λ (bits)` = 2.26,
`Test log-likelihood (nats)` = -119.18, `log-likelihood after recalibration (nats)` = -118.69), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
s2.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "268 / 500", class = "factor"),
`Crude C-statistic` = 0.837, `Model-based C-statistic` = 0.832,
`Crude Λ (bits)` = 1.33, `Model-based Λ (bits)` = 1.29,
`Test log-likelihood (nats)` = -364.32, `log-likelihood after recalibration (nats)` = -364.25), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
s3.ok <-
structure(list(`Cases / controls` = structure(1L, .Label = "101 / 141", class = "factor"),
`Crude C-statistic` = 0.893, `Model-based C-statistic` = 0.924,
`Crude Λ (bits)` = 3.08, `Model-based Λ (bits)` = 2.9,
`Test log-likelihood (nats)` = -73.26, `log-likelihood after recalibration (nats)` = -73.19), .Names = c("Cases / controls",
"Crude C-statistic", "Model-based C-statistic", "Crude Λ (bits)",
"Model-based Λ (bits)", "Test log-likelihood (nats)", "log-likelihood after recalibration (nats)"
), row.names = c(NA, -1L), class = "data.frame")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.