[R] frequency

[Brett Magill]

This function I wrote handles this, but without the cumulative percent, 
which is easy enough to see in any case.

Freq<-
function(x){

   xmat<-as.matrix(x)
 
   ifelse (ncol(xmat)==1,{

   Count<-table(x)
   Total<-sum(Count)
   Prcnt<-100*(Count/Total)
   x1<-cbind(Count,Prcnt)
   x2<-cbind(Total,sum(Prcnt))
   Frequency.Table<-as.data.frame(rbind(x1,x2))
   c<-nrow(Frequency.Table)
   rownames(Frequency.Table)[c]<-"Total"
   return(Frequency.Table)}
   ,
   return("To use this function across multiple columns use apply"))

}


gfaieta at katamail.com wrote:

>I'm quite new with R so sorry if I asked something very easy or complicated.
>I have a data frame with (for instance) 4 variables (4 columns) and 100 records. I would like to have a 'summary' table for each variable that shows me the following:
>
>variable 1      Freq.    %     % cumulative
>
>class 1           10        10%      10%
>class 2           20        20%      30%
>class 3           70        70%     100%
>
>Is there any kind of function in R that does somthing like this? Or is it necessary to create a customized function?
>Thank you in advanced.
>
>Giuseppe Faieta -statistician-
>Bologna (Italy)
>
>__________________________________________
>
>
>Fai i tuoi acquisti su www.kwshopping.it
>
>-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
>r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
>Send "info", "help", or "[un]subscribe"
>(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
>_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._
>


-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html
Send "info", "help", or "[un]subscribe"
(in the "body", not the subject !)  To: r-help-request at stat.math.ethz.ch
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._