# percent: Table of Percentages with Percentage Base In memisc: Management of Survey Data and Presentation of Analysis Results

## Description

`percent` returns a table of percentages along with the percentage base. It will be useful in conjunction with `Aggregate` or `genTable`.

## Usage

 ```1 2 3 4 5 6 7 8 9``` ``` percent(x,...) ## Default S3 method: percent(x,weights=NULL,total=!(se || ci), se=FALSE,ci=FALSE,ci.level=.95, total.name="N",perc.label="Percentage",...) ## S3 method for class 'logical' percent(x,weights=NULL,total=!(se || ci), se=FALSE,ci=FALSE,ci.level=.95, total.name="N",perc.label="Percentage",...) ```

## Arguments

 `x` a numeric vector or factor. `weights` a optional numeric vector of weights of the same length as `x`. `total` logical; should the total sum of counts from which the percentages are computed be included into the output? `se` logical; should standard errors of the percentages be included? `ci` logical; should confidence intervals of the percentages be included? `ci.level` numeric; nominal coverage of confidence intervals `total.name` character; name given for the total sum of counts `perc.label` character; label given for the percentages if the table has more than one dimensions, e.g. if `se` or `ci` is TRUE. `...` for `percent.mresp`: one or several 1-0 vectors or matrices otherwise, further arguments, currently ignored.

## Value

A table of percentages.

## Examples

 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34``` ```x <- rnorm(100) y <- rnorm(100) z <- rnorm(100) f <- sample(1:3,100,replace=TRUE) f <- factor(f,labels=c("a","b","c")) percent(x>0) percent(f) genTable( cbind(percent(x>0), percent(y>0), percent(z>0)) ~ f ) gt <- genTable( cbind("x > 0" = percent(x>0,ci=TRUE), "y > 0" = percent(y>0,ci=TRUE), "z > 0" = percent(z>0,ci=TRUE)) ~ f ) ftable(gt,row.vars=3:2,col.vars=1) ex.data <- expand.grid(mean=c(0,25,50),sd=c(1,10,100))[rep(1:9,rep(250,9)),] ex.data <- within(ex.data,x <- rnorm(n=nrow(ex.data),mean=ex.data\$mean,sd=ex.data\$sd)) ex.data <- within(ex.data,x.grp <- cases( x < 0, x >= 0 & x < 50, x >= 50 & x < 100, x >= 100 )) genTable(percent(x.grp)~mean+sd,data=ex.data) Aggregate(percent(Admit,weight=Freq)~Gender+Dept,data=UCBAdmissions) ```

memisc documentation built on Nov. 19, 2020, 1:06 a.m.