On 16-Oct-09 20:51:06, Muenchen, Robert A (Bob) wrote: > Dear R-Helpers, > > I've looked high and low for a function that provides frequencies, > proportions and cumulative proportions side-by-side. Below is the table > I need. Is there a function that already does it? > > Thanks, > Bob > >> # Generate some test scores >> myValues <- c(70:95) >> Score <- ( sample( myValues, size=1000, replace=TRUE) ) >> head(Score) > [1] 77 71 81 88 83 93 >> >> # Get frequencies & proportions >> myTable <- data.frame( table(Score) ) >> myTable$Prop <- prop.table( myTable$Freq ) >> myTable$CumProp <- cumsum( myTable$Prop ) >> >> # Print result >> myTable > Score Freq Prop CumProp > 1 70 44 0.044 0.044 > 2 71 42 0.042 0.086 > 3 72 40 0.040 0.126 > 4 73 40 0.040 0.166 > 5 74 43 0.043 0.209 > 6 75 45 0.045 0.254 > 7 76 46 0.046 0.300 > 8 77 40 0.040 0.340 > 9 78 46 0.046 0.386 > 10 79 43 0.043 0.429 > 11 80 37 0.037 0.466 > 12 81 29 0.029 0.495 > 13 82 33 0.033 0.528 > 14 83 39 0.039 0.567 > 15 84 31 0.031 0.598 > 16 85 32 0.032 0.630 > 17 86 31 0.031 0.661 > 18 87 37 0.037 0.698 > 19 88 30 0.030 0.728 > 20 89 33 0.033 0.761 > 21 90 43 0.043 0.804 > 22 91 41 0.041 0.845 > 23 92 37 0.037 0.882 > 24 93 39 0.039 0.921 > 25 94 42 0.042 0.963 > 26 95 37 0.037 1.000
I don't think there is a ready-made one, but it is very little effort to make your own: mkMyTable <- function(X){ Table <- data.frame( table(X) ) Table$Prop <- prop.table( Table$Freq ) Table$CumProp <- cumsum( Table$Prop ) Table } myTable <- mkMyTable(Score) Hoping this helps! Ted. -------------------------------------------------------------------- E-Mail: (Ted Harding) <ted.hard...@manchester.ac.uk> Fax-to-email: +44 (0)870 094 0861 Date: 16-Oct-09 Time: 22:48:06 ------------------------------ XFMail ------------------------------ ______________________________________________ R-help@r-project.org mailing list https://stat.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide http://www.R-project.org/posting-guide.html and provide commented, minimal, self-contained, reproducible code.