Nothing
test_that('correct results for glm_grouped()', {
ucb_weighted <- as.data.frame(UCBAdmissions)
ucb_weighted$Freq <- as.integer(ucb_weighted$Freq)
ucb_long <- tidyr::uncount(ucb_weighted, Freq)
ungrouped <- glm(Admit ~ Gender + Dept, data = ucb_long, family = binomial)
expect_error(
grouped <- glm_grouped(Admit ~ Gender + Dept, data = ucb_weighted, weights = ucb_weighted$Freq),
regexp = NA
)
expect_equal(grouped$df.null, 11)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.