R/gen_survey_props.R

gen_survey_props <-
function(vector) {

	if (!is.vector(vector)) stop("Input must be vector")
	
	x1 <- prop.table(table(vector))*100
	return (as.vector(x1))
	
}
lorenc5/Rweights3 documentation built on May 29, 2019, 11:05 p.m.