Civilytics/civilyticsR
3
0
Fork 0
Code Issues 8 Pull Requests Actions Packages Projects Releases Wiki Activity

fix proportion ci calc and theme #2

Merged
jared merged 4 commits from feature-prop_int into master 2024-09-19 16:17:33 -04:00
Conversation 0 Commits 4 Files Changed 29
+481 -436
18 changed files with 481 additions and 436 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 82b8db7f84 - Show all commits
Dockerfile
+27 -27
View File
@@ -1,27 +1,27 @@
# [Choice] R version: 4, 4.2, 4.1, 4.0 # [Choice] R version: 4, 4.2, 4.1, 4.0
ARG VARIANT=4.2 ARG VARIANT=4.2
# [Choice] Base image. Minimal (r-ver), tidyverse installed (tidyverse), or full image (binder): rocker/r-ver, rocker/tidyverse, rocker/binder # [Choice] Base image. Minimal (r-ver), tidyverse installed (tidyverse), or full image (binder): rocker/r-ver, rocker/tidyverse, rocker/binder
ARG BASE_IMAGE=rocker/r-ver ARG BASE_IMAGE=rocker/r-ver
FROM ${BASE_IMAGE}:${VARIANT} FROM ${BASE_IMAGE}:${VARIANT}
RUN apt-get update && apt-get install -y --no-install-recommends \ RUN apt-get update && apt-get install -y --no-install-recommends \
sudo \ sudo \
libcurl4-gnutls-dev \ libcurl4-gnutls-dev \
libxml2-dev \ libxml2-dev \
libcairo2-dev \ libcairo2-dev \
libxt-dev \ libxt-dev \
libjpeg-dev \ libjpeg-dev \
libpng-dev \ libpng-dev \
openjdk-11-jdk \ openjdk-11-jdk \
libssl-dev \ libssl-dev \
libssh2-1-dev \ libssh2-1-dev \
libudunits2-dev \ libudunits2-dev \
libgdal-dev \ libgdal-dev \
libgeos-dev \ libgeos-dev \
libproj-dev \ libproj-dev \
&& rm -rf /var/lib/apt/lists/* \ && rm -rf /var/lib/apt/lists/* \
&& mkdir -p /var/lib/shiny-server/bookmarks/shiny && mkdir -p /var/lib/shiny-server/bookmarks/shiny
RUN install2.r ggplot2 jpeg png stringr gridExtra grid testthat covr tidycensus stringdist RUN install2.r ggplot2 jpeg png stringr gridExtra grid testthat covr tidycensus stringdist
Jenkinsfile
Vendored
+60 -60
View File
@@ -1,60 +1,60 @@
pipeline { pipeline {
agent { agent {
dockerfile true dockerfile true
} }
stages { stages {
stage('Docker setup') { stage('Docker setup') {
steps { steps {
sh ''' sh '''
R --version R --version
java --version java --version
''' '''
} }
} }
stage('Build and test') { stage('Build and test') {
stages { stages {
stage("Build package") { stage("Build package") {
steps { steps {
sh ''' sh '''
R CMD build . R CMD build .
''' '''
} }
} }
stage('Check') { stage('Check') {
steps { steps {
sh ''' sh '''
R CMD check --no-manual civilytics_0.1.0.tar.gz R CMD check --no-manual civilytics_0.1.0.tar.gz
''' '''
sh ''' sh '''
R CMD INSTALL civilytics_0.1.0.tar.gz R CMD INSTALL civilytics_0.1.0.tar.gz
''' '''
} }
} }
stage('testthat'){ stage('testthat'){
steps { steps {
sh ''' sh '''
R -e 'testthat::test_local(".")' R -e 'testthat::test_local(".")'
''' '''
} }
} }
stage('test coverage') { stage('test coverage') {
steps { steps {
sh ''' sh '''
R -e 'covr::package_coverage(".")' R -e 'covr::package_coverage(".")'
''' '''
} }
} }
stage('Clean') { stage('Clean') {
steps { steps {
sh ''' sh '''
rm -rf civilytics_0.1.0.tar.gz civilytics.Rcheck rm -rf civilytics_0.1.0.tar.gz civilytics.Rcheck
''' '''
} }
} }
} }
} }
} }
} }
Makefile
+26 -26
View File
@@ -1,26 +1,26 @@
# h/t to @jimhester and @yihui for this parse block: # h/t to @jimhester and @yihui for this parse block:
# https://github.com/yihui/knitr/blob/dc5ead7bcfc0ebd2789fe99c527c7d91afb3de4a/Makefile#L1-L4 # https://github.com/yihui/knitr/blob/dc5ead7bcfc0ebd2789fe99c527c7d91afb3de4a/Makefile#L1-L4
# Note the portability change as suggested in the manual: # Note the portability change as suggested in the manual:
# https://cran.r-project.org/doc/manuals/r-release/R-exts.html#Writing-portable-packages # https://cran.r-project.org/doc/manuals/r-release/R-exts.html#Writing-portable-packages
PKGNAME = `sed -n "s/Package: *\([^ ]*\)/\1/p" DESCRIPTION` PKGNAME = `sed -n "s/Package: *\([^ ]*\)/\1/p" DESCRIPTION`
PKGVERS = `sed -n "s/Version: *\([^ ]*\)/\1/p" DESCRIPTION` PKGVERS = `sed -n "s/Version: *\([^ ]*\)/\1/p" DESCRIPTION`
all: check all: check
build: install_deps build: install_deps
R CMD build . R CMD build .
check: build check: build
R CMD check --no-manual $(PKGNAME)_$(PKGVERS).tar.gz R CMD check --no-manual $(PKGNAME)_$(PKGVERS).tar.gz
install_deps: install_deps:
Rscript \ Rscript \
-e 'if (!requireNamespace("remotes")) install.packages("remotes")' \ -e 'if (!requireNamespace("remotes")) install.packages("remotes")' \
-e 'remotes::install_deps(dependencies = TRUE)' -e 'remotes::install_deps(dependencies = TRUE)'
install: build install: build
R CMD INSTALL $(PKGNAME)_$(PKGVERS).tar.gz R CMD INSTALL $(PKGNAME)_$(PKGVERS).tar.gz
clean: clean:
@rm -rf $(PKGNAME)_$(PKGVERS).tar.gz $(PKGNAME).Rcheck @rm -rf $(PKGNAME)_$(PKGVERS).tar.gz $(PKGNAME).Rcheck
NAMESPACE
+48 -48
View File
@@ -1,48 +1,48 @@
# Generated by roxygen2: do not edit by hand # Generated by roxygen2: do not edit by hand
export(add_logo) export(add_logo)
export(add_logo_ga) export(add_logo_ga)
export(countCleanr) export(countCleanr)
export(countDots) export(countDots)
export(countNA) export(countNA)
export(dbSafeNames) export(dbSafeNames)
export(findDots) export(findDots)
export(get_fips) export(get_fips)
export(get_png) export(get_png)
export(get_stabbr) export(get_stabbr)
export(grade_level_to_num) export(grade_level_to_num)
export(has_caption) export(has_caption)
export(make_logo_grob) export(make_logo_grob)
export(match_test) export(match_test)
export(measure_caption) export(measure_caption)
export(na_sum) export(na_sum)
export(na_zero) export(na_zero)
export(nvals) export(nvals)
export(outersect) export(outersect)
export(perturb_count) export(perturb_count)
export(plot_jpeg) export(plot_jpeg)
export(postcode_lookup) export(postcode_lookup)
export(pretty_count) export(pretty_count)
export(pretty_per) export(pretty_per)
export(race_short_names) export(race_short_names)
export(random_round) export(random_round)
export(safe_max) export(safe_max)
export(safe_ratio) export(safe_ratio)
export(simpleCap) export(simpleCap)
export(star_subs) export(star_subs)
export(theme_civilytics) export(theme_civilytics)
export(z_gap_test) export(z_gap_test)
export(z_univariate) export(z_univariate)
import(ggplot2) import(ggplot2)
import(tidycensus) import(tidycensus)
importFrom(ggplot2,theme) importFrom(ggplot2,theme)
importFrom(graphics,plot) importFrom(graphics,plot)
importFrom(graphics,rasterImage) importFrom(graphics,rasterImage)
importFrom(grid,grid.draw) importFrom(grid,grid.draw)
importFrom(grid,rasterGrob) importFrom(grid,rasterGrob)
importFrom(gridExtra,arrangeGrob) importFrom(gridExtra,arrangeGrob)
importFrom(jpeg,readJPEG) importFrom(jpeg,readJPEG)
importFrom(png,readPNG) importFrom(png,readPNG)
importFrom(stats,runif) importFrom(stats,runif)
importFrom(stringdist,stringsim) importFrom(stringdist,stringsim)
importFrom(stringr,str_count) importFrom(stringr,str_count)
R/join_utilities.R
+48 -48
View File
@@ -1,48 +1,48 @@
# Join utilities # Join utilities
#' Test the join between two sets of identifiers #' Test the join between two sets of identifiers
#' #'
#' @param x a vector of identifiers to check against y #' @param x a vector of identifiers to check against y
#' @param y a vector of identifiers to check against x #' @param y a vector of identifiers to check against x
#' @param distinct logical, should duplicate values of x and y be removed before testing #' @param distinct logical, should duplicate values of x and y be removed before testing
#' #'
#' @return nothing, print a summary of match statistics to the console #' @return nothing, print a summary of match statistics to the console
#' @export #' @export
#' #'
#' @examples #' @examples
#' x <- LETTERS #' x <- LETTERS
#' y <- c(letters, LETTERS) #' y <- c(letters, LETTERS)
#' match_test(x, y) #' match_test(x, y)
match_test <- function(x, y, distinct = TRUE) { match_test <- function(x, y, distinct = TRUE) {
if (distinct) { if (distinct) {
x <- unique(x) x <- unique(x)
y <- unique(y) y <- unique(y)
cat("**** Distinct Matches ****") cat("**** Distinct Matches ****")
cat("\n") cat("\n")
} }
# TODO: DO not report 100% if there is even 1 mismatch # TODO: DO not report 100% if there is even 1 mismatch
xiny <- sum(x %in% y) xiny <- sum(x %in% y)
total_x <- length(x) total_x <- length(x)
yinx <- sum(y %in% x) yinx <- sum(y %in% x)
total_y <- length(y) total_y <- length(y)
cat("**** Match Summary ****") cat("**** Match Summary ****")
cat("\n") cat("\n")
cat("X in Y") cat("X in Y")
cat("\n") cat("\n")
cat(paste0("Of the ", total_x, " X values, ", xiny, " (", cat(paste0("Of the ", total_x, " X values, ", xiny, " (",
100*round(xiny/total_x, 2), "%) were matched.")) 100*round(xiny/total_x, 2), "%) were matched."))
cat("\n") cat("\n")
cat("********************************************") cat("********************************************")
cat("\n") cat("\n")
cat("Y in X") cat("Y in X")
cat("\n") cat("\n")
cat(paste0("Of the ", total_y, " Y values, ", yinx, " (", cat(paste0("Of the ", total_y, " Y values, ", yinx, " (",
100*round(yinx/total_y, 2), "%) were matched.")) 100*round(yinx/total_y, 2), "%) were matched."))
cat("\n") cat("\n")
cat("******************************************") cat("******************************************")
} }
R/prop_conf.R
+70
View File
@@ -0,0 +1,70 @@
# https://github.com/cran/binom/blob/master/R/binom.confint.R
# Consider importing and crediting this code ^^
# https://towardsdatascience.com/five-confidence-intervals-for-proportions-that-you-should-know-about-7ff5484c024f
# https://andrewpwheeler.com/2020/11/30/confidence-intervals-around-proportions/
#' Get a simple Clopper Pearson interval
#'
#' @param num
#' @param den
#' @param confint
#'
#' @return
#' @export
#'
#' @examples
clopper_pearson <- function(num, den, confint = 0.95) {
# Same results as binom.test in base R
quant <- (1 - confint) / 2
low <- qbeta(quant, num, den-num+1)
hi <- qbeta(1-quant, num+1, den-num)
obs <- num/den
return(c("low" = low, "observed" = obs,"high" = hi))
}
# TODO consider making a vectorized version
# z_gap_test_v <- Vectorize(z_gap_test,
# SIMPLIFY = TRUE)# we only want to return a scalar
#z_gap_test(a_prop = 0.051, a_count = 2000, b_prop = 0.11, b_count = 100)
#' Calculate a univariate z score by comparing to a population
#'
#' @param unit_prop proportion for the group we are comparing
#' @param global_prop the global proportion
#' @param unit_denom the population size for the group we are comparing
#'
#' @return a z-score
#' @export
#'
#' @examples
#' z_univariate(unit_prop = 0.13, global_prop = 0.11, unit_denom = 2500)
z_univariate <- function(unit_prop, global_prop, unit_denom) {
num <- unit_prop - global_prop
denom <- sqrt(
(global_prop * (1-global_prop))/unit_denom
)
z = num / denom
return(z)
}
waldInterval <- function(x, n, conf.level = 0.95){
p <- x/n
sd <- sqrt(p*((1-p)/n))
z <- qnorm(c( (1 - conf.level)/2, 1 - (1-conf.level)/2)) #returns the value of thresholds at which conf.level has to be cut at. for 95% CI, this is -1.96 and +1.96
ci <- p + z*sd
names(ci) <- c('lwr', 'upr')
return(ci)
}#example
#waldInterval(x = 20, n =40) #this will return 0.345 and 0.655
agresti_coull_interval <- function(num, den, conf.level) {
num <- num + 2
den <- den + 4
}
R/theme.R
+4 -4
View File
@@ -22,14 +22,14 @@ theme_civilytics <-
theme( theme(
line = element_line( line = element_line(
color = "black", color = "black",
size = line_size, linewidth = line_size,
linetype = 1, linetype = 1,
lineend = "butt" lineend = "butt"
), ),
rect = element_rect( rect = element_rect(
fill = NA, fill = NA,
color = NA, color = NA,
size = line_size, linewidth = line_size,
linetype = 1 linetype = 1
), ),
text = element_text( text = element_text(
@@ -46,7 +46,7 @@ theme_civilytics <-
), ),
axis.line = element_line( axis.line = element_line(
color = "black", color = "black",
size = line_size, linewidth = line_size,
lineend = "square" lineend = "square"
), ),
axis.line.x = NULL, axis.line.x = NULL,
@@ -62,7 +62,7 @@ theme_civilytics <-
axis.text.y.right = element_text(margin = margin(l = small_size / 4), axis.text.y.right = element_text(margin = margin(l = small_size / 4),
hjust = 0), hjust = 0),
axis.ticks = element_line(color = "black", axis.ticks = element_line(color = "black",
size = line_size), linewidth = line_size),
axis.ticks.length = unit(half_line / 2, axis.ticks.length = unit(half_line / 2,
"pt"), "pt"),
axis.title.x = element_text(margin = margin(t = half_line / 2), axis.title.x = element_text(margin = margin(t = half_line / 2),
R/utils.R
-27
View File
@@ -308,35 +308,8 @@ z_gap_test <- function(a_prop, a_count, b_prop, b_count) {
return(z) return(z)
} }
# TODO consider making a vectorized version
# z_gap_test_v <- Vectorize(z_gap_test,
# SIMPLIFY = TRUE)# we only want to return a scalar
#z_gap_test(a_prop = 0.051, a_count = 2000, b_prop = 0.11, b_count = 100)
#' Calculate a univariate z score by comparing to a population
#'
#' @param unit_prop proportion for the group we are comparing
#' @param global_prop the global proportion
#' @param unit_denom the population size for the group we are comparing
#'
#' @return a z-score
#' @export
#'
#' @examples
#' z_univariate(unit_prop = 0.13, global_prop = 0.11, unit_denom = 2500)
z_univariate <- function(unit_prop, global_prop, unit_denom) {
num <- unit_prop - global_prop
denom <- sqrt(
(global_prop * (1-global_prop))/unit_denom
)
z = num / denom
return(z)
}
# TODO: Consider vectorizing # TODO: Consider vectorizing
#z_univariate_v <- Vectorize(z_univariate, SIMPLIFY = TRUE) #z_univariate_v <- Vectorize(z_univariate, SIMPLIFY = TRUE)
man/add_logo.Rd
+21 -21
View File
@@ -1,21 +1,21 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/logo.R % Please edit documentation in R/logo.R
\name{add_logo} \name{add_logo}
\alias{add_logo} \alias{add_logo}
\title{Add a logo to a ggplot2 object} \title{Add a logo to a ggplot2 object}
\usage{ \usage{
add_logo(plot, logo, margin_param = NULL) add_logo(plot, logo, margin_param = NULL)
} }
\arguments{ \arguments{
\item{plot}{a ggplot2 grob} \item{plot}{a ggplot2 grob}
\item{logo}{a logo grob created by make_logo_grob()} \item{logo}{a logo grob created by make_logo_grob()}
\item{margin_param}{a numeric specifying what margin to add or subtract to align the logo} \item{margin_param}{a numeric specifying what margin to add or subtract to align the logo}
} }
\value{ \value{
a grob with a logo attached to it ready to plot a grob with a logo attached to it ready to plot
} }
\description{ \description{
Add a logo to a ggplot2 object Add a logo to a ggplot2 object
} }
man/add_logo_ga.Rd
+36 -36
View File
@@ -1,36 +1,36 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/logo.R % Please edit documentation in R/logo.R
\name{add_logo_ga} \name{add_logo_ga}
\alias{add_logo_ga} \alias{add_logo_ga}
\title{Add a logo to a ggplot2 object} \title{Add a logo to a ggplot2 object}
\usage{ \usage{
add_logo_ga(plot_list, logo, nrow = 1, widths = NULL, margin_param = NULL) add_logo_ga(plot_list, logo, nrow = 1, widths = NULL, margin_param = NULL)
} }
\arguments{ \arguments{
\item{plot_list}{a list containing ggplot2 objects} \item{plot_list}{a list containing ggplot2 objects}
\item{logo}{a grob containing the logo created with `make_logo_grob`} \item{logo}{a grob containing the logo created with `make_logo_grob`}
\item{nrow}{an integer, default = 1, for the number of rows to align the plots in} \item{nrow}{an integer, default = 1, for the number of rows to align the plots in}
\item{widths}{an optional vector the same length as plot_list with the widths for each plot} \item{widths}{an optional vector the same length as plot_list with the widths for each plot}
\item{margin_param}{a number giving the adjustment up or down to help manually align logo and captions} \item{margin_param}{a number giving the adjustment up or down to help manually align logo and captions}
} }
\value{ \value{
a grid object a grid object
} }
\description{ \description{
Add a logo to a ggplot2 object Add a logo to a ggplot2 object
} }
\note{ \note{
The resulting object needs to be drawn to the screen using grid.draw() The resulting object needs to be drawn to the screen using grid.draw()
} }
\examples{ \examples{
library(ggplot2); library(grid) library(ggplot2); library(grid)
tmp_plot <- ggplot(mtcars) + aes(x = hp, y = disp) + geom_point() + theme_civilytics() tmp_plot <- ggplot(mtcars) + aes(x = hp, y = disp) + geom_point() + theme_civilytics()
tmp_logo <- make_logo_grob() tmp_logo <- make_logo_grob()
plot_and_logo <- add_logo(tmp_plot, tmp_logo) plot_and_logo <- add_logo(tmp_plot, tmp_logo)
grid.draw(plot_and_logo) grid.draw(plot_and_logo)
dev.off() dev.off()
} }
man/countDots.Rd
+17 -17
View File
@@ -1,17 +1,17 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/db.R % Please edit documentation in R/db.R
\name{countDots} \name{countDots}
\alias{countDots} \alias{countDots}
\title{Count the number of single period entries in a vector} \title{Count the number of single period entries in a vector}
\usage{ \usage{
countDots(x) countDots(x)
} }
\arguments{ \arguments{
\item{x}{a character vector} \item{x}{a character vector}
} }
\value{ \value{
An integer counting the number of "." occurences in a vector An integer counting the number of "." occurences in a vector
} }
\description{ \description{
Count the number of single period entries in a vector Count the number of single period entries in a vector
} }
man/get_png.Rd
+17 -17
View File
@@ -1,17 +1,17 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/logo.R % Please edit documentation in R/logo.R
\name{get_png} \name{get_png}
\alias{get_png} \alias{get_png}
\title{Plot a PNG file as a rasterGrob for inclusion in ggplot2} \title{Plot a PNG file as a rasterGrob for inclusion in ggplot2}
\usage{ \usage{
get_png(filename) get_png(filename)
} }
\arguments{ \arguments{
\item{filename}{a character with file path to a png file} \item{filename}{a character with file path to a png file}
} }
\value{ \value{
a plotted rasteGrob of a png image a plotted rasteGrob of a png image
} }
\description{ \description{
Plot a PNG file as a rasterGrob for inclusion in ggplot2 Plot a PNG file as a rasterGrob for inclusion in ggplot2
} }
man/grade_level_to_num.Rd
+20 -20
View File
@@ -1,20 +1,20 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/utils.R % Please edit documentation in R/utils.R
\name{grade_level_to_num} \name{grade_level_to_num}
\alias{grade_level_to_num} \alias{grade_level_to_num}
\title{Recode grade level from character to numeric} \title{Recode grade level from character to numeric}
\usage{ \usage{
grade_level_to_num(x) grade_level_to_num(x)
} }
\arguments{ \arguments{
\item{x}{character description of grade levels from NCES style data} \item{x}{character description of grade levels from NCES style data}
} }
\value{ \value{
a numeric vector a numeric vector
} }
\description{ \description{
Recode grade level from character to numeric Recode grade level from character to numeric
} }
\examples{ \examples{
grade_level_to_num(c("KG", "Pre-K", "12", "10", "09")) grade_level_to_num(c("KG", "Pre-K", "12", "10", "09"))
} }
man/measure_caption.Rd
+22 -22
View File
@@ -1,22 +1,22 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/logo.R % Please edit documentation in R/logo.R
\name{measure_caption} \name{measure_caption}
\alias{measure_caption} \alias{measure_caption}
\title{Measure a ggplot2 object caption} \title{Measure a ggplot2 object caption}
\usage{ \usage{
measure_caption(gg) measure_caption(gg)
} }
\arguments{ \arguments{
\item{gg}{a ggplot object} \item{gg}{a ggplot object}
} }
\value{ \value{
a numeric value stating the number of lines to be added or subtracted to align a logo with a numeric value stating the number of lines to be added or subtracted to align a logo with
the caption the caption
} }
\description{ \description{
Measure a ggplot2 object caption Measure a ggplot2 object caption
} }
\examples{ \examples{
p1 <- ggplot2::qplot(mpg, wt, data = mtcars) p1 <- ggplot2::qplot(mpg, wt, data = mtcars)
measure_caption(p1) # Should equal 1 since no caption is required measure_caption(p1) # Should equal 1 since no caption is required
} }
man/race_short_names.Rd
+20 -20
View File
@@ -1,20 +1,20 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/utils.R % Please edit documentation in R/utils.R
\name{race_short_names} \name{race_short_names}
\alias{race_short_names} \alias{race_short_names}
\title{Recode NCES race categories to shorter names} \title{Recode NCES race categories to shorter names}
\usage{ \usage{
race_short_names(x) race_short_names(x)
} }
\arguments{ \arguments{
\item{x}{a character vector with NCES race codes, often from Urban Institute} \item{x}{a character vector with NCES race codes, often from Urban Institute}
} }
\value{ \value{
recoded race categories following NCES race codes recoded race categories following NCES race codes
} }
\description{ \description{
Recode NCES race categories to shorter names Recode NCES race categories to shorter names
} }
\examples{ \examples{
race_short_names(c("Black", "Hispanic Or Latino", "Two Or More Races")) race_short_names(c("Black", "Hispanic Or Latino", "Two Or More Races"))
} }
man/star_subs.Rd
+28 -28
View File
@@ -1,28 +1,28 @@
% Generated by roxygen2: do not edit by hand % Generated by roxygen2: do not edit by hand
% Please edit documentation in R/utils.R % Please edit documentation in R/utils.R
\name{star_subs} \name{star_subs}
\alias{star_subs} \alias{star_subs}
\title{Unsuppress data using sampling} \title{Unsuppress data using sampling}
\usage{ \usage{
star_subs(x, replace_char = "*", zeros = 15, max_value = 20) star_subs(x, replace_char = "*", zeros = 15, max_value = 20)
} }
\arguments{ \arguments{
\item{x}{a vector} \item{x}{a vector}
\item{replace_char}{the character you want to replace in the vector} \item{replace_char}{the character you want to replace in the vector}
\item{zeros}{the number of zeroes to oversample when replacing replace_char} \item{zeros}{the number of zeroes to oversample when replacing replace_char}
\item{max_value}{the numeric maximum value the replacement for the "*" can be} \item{max_value}{the numeric maximum value the replacement for the "*" can be}
} }
\value{ \value{
a numeric vector with no characters representing suppressed values a numeric vector with no characters representing suppressed values
} }
\description{ \description{
Unsuppress data using sampling Unsuppress data using sampling
} }
\examples{ \examples{
suppr_data <- c("2", "8", "*", "*", "7", "9", "100") suppr_data <- c("2", "8", "*", "*", "7", "9", "100")
star_subs(suppr_data, zeros = 1, max_value = 10) star_subs(suppr_data, zeros = 1, max_value = 10)
star_subs(suppr_data, zeros = 1, max_value = 200) star_subs(suppr_data, zeros = 1, max_value = 200)
} }
tests/testthat/test_joins.R
+15 -15
View File
@@ -1,15 +1,15 @@
#' x <- LETTERS #' x <- LETTERS
#' y <- c(letters, LETTERS) #' y <- c(letters, LETTERS)
#' match_test(x, y) #' match_test(x, y)
#' #'
#' #'
context("Test Basic Output for match_test") context("Test Basic Output for match_test")
test_that("pretty_per respects rounding", { test_that("pretty_per respects rounding", {
x <- LETTERS x <- LETTERS
y <- c(letters, LETTERS) y <- c(letters, LETTERS)
testthat::expect_output(match_test(x, y)) testthat::expect_output(match_test(x, y))
}) })
tests/testthat/test_propint.R
+2
View File
@@ -0,0 +1,2 @@
# test prop intervals