percent                package:memisc                R Documentation

_T_a_b_l_e _o_f _P_e_r_c_e_n_t_a_g_e_s _w_i_t_h _P_e_r_c_e_n_t_a_g_e _B_a_s_e

_D_e_s_c_r_i_p_t_i_o_n:

     'percent' returns a table of percentages along with the percentage
     base. It will be useful in conjunction with 'aggregate.formula'.

_U_s_a_g_e:

       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",...)

_A_r_g_u_m_e_n_t_s:

       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.

_V_a_l_u_e:

     A table of percentages.

_E_x_a_m_p_l_e_s:

     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(percent(x>0,ci=TRUE),
             percent(y>0,ci=TRUE),
             percent(z>0,ci=TRUE)) ~ f
       )

     print(gt)
     ftable(gt,row.vars=2,col.vars=c(3,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)

