jared
6051e4bb5c
R-CMD-check / R CMD check (push) Successful in 4m37s
- Remove Knowles_Headshot_2019_good.jpg and Knowles_Headshot_2019_prisma.jpg from inst/img/ — personal headshot should not be distributed with the package - Update plot_jpeg() roxygen example to use a generic placeholder instead of the removed headshot path; regenerate man/plot_jpeg.Rd accordingly - Add comprehensive testthat coverage for clopper_pearson(), z_univariate(), waldInterval(), and agresti_coull_interval() in tests/testthat/test_propint.R The propint module previously had zero tests. New tests cover: return types, formula correctness (cross-validated against binom.test()), edge cases (0/n and n/n), interval validity, confidence level behavior, and sign/direction of z-scores.
52 lines
1.4 KiB
R
52 lines
1.4 KiB
R
|
|
|
|
library(civilytics)
|
|
library(ggplot2)
|
|
library(grid)
|
|
data(mtcars)
|
|
|
|
ggplot(mtcars, aes(x = hp, y = mpg)) +
|
|
geom_point() +
|
|
labs(title = "This is the title", subtitle = "More context.",
|
|
caption = "JEK made this for you.") +
|
|
theme_civilytics_dark(font_size = 16)
|
|
|
|
|
|
|
|
(ggplot(mtcars, aes(x = hp, y = mpg)) +
|
|
geom_point() +
|
|
labs(title = "This is the title", subtitle = "More context.",
|
|
caption = "JEK made this for you.") +
|
|
theme_civilytics_dark(font_size = 16)) |>
|
|
civilytics_logo(variant = "dark") |>
|
|
grid::grid.draw()
|
|
|
|
dev.off()
|
|
|
|
(ggplot(mtcars, aes(x = hp, y = mpg)) +
|
|
geom_point() +
|
|
labs(title = "This is the title", subtitle = "More context.",
|
|
caption = "JEK made this for you.") +
|
|
theme_civilytics_dark()) |>
|
|
civilytics_logo(variant = "dark") |>
|
|
grid::grid.draw()
|
|
|
|
dev.off()
|
|
|
|
(ggplot(mtcars, aes(x = hp, y = mpg)) +
|
|
geom_point() +
|
|
labs(title = "This is the title", subtitle = "More context.",
|
|
caption = "JEK made this for you.") +
|
|
theme_civilytics_dark(font_size = 14)) |>
|
|
civilytics_logo(variant = "dark") |>
|
|
grid::grid.draw()
|
|
|
|
dev.off()
|
|
(ggplot(mtcars, aes(x = hp, y = mpg)) +
|
|
geom_point() +
|
|
labs(title = "This is the title", subtitle = "More context.",
|
|
caption = "JEK made this for you.") +
|
|
theme_civilytics_dark(font_size = 16)) |>
|
|
civilytics_logo(variant = "dark", position = "top-right") |>
|
|
grid::grid.draw()
|