frequency

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

}

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
_._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._._