percent_that_sums_to_100: Compute Percentage That Sums to 100%

In rettopnivek/arfpam: Assorted R Functions for Processing, Analysis, and Modeling

Compute Percentage That Sums to 100%

Description

Function that uses the largest remainder method to ensure that a set of percentages sum to 100% even in the presence of rounding error.

Usage

percent_that_sums_to_100(x, digits = 1, freq = FALSE)

Arguments

x	A vector of proportions or frequencies that are suppose to sum to 100%.
digits	The number of digits to round to.
freq	Logical; if TRUE assumes x is a vector of frequencies, otherwise assumes x is a vector of proportions.

Value

A vector of percentages that sum to 100%.

Examples

x <- c( 9990, 5, 5 )
# Convert to percentage and round
p <- round( 100*x/sum(x), 1 )
# No longer sums to 100% due to rounding error
print( sum(p) )
# Adjust percentages using the
# largest remainder method so
# they sum to 100%
print( percent_that_sums_to_100( p/100 ) )
# Works with frequencies as well
print( percent_that_sums_to_100( x, freq = TRUE ) )

rettopnivek/arfpam documentation built on Oct. 20, 2024, 7:24 p.m.