From: Roger D. Peng <rpeng_at_jhsph.edu>

Date: Fri 09 Jul 2004 - 22:22:08 EST

R-help@stat.math.ethz.ch mailing list

https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Fri Jul 09 22:32:51 2004

Date: Fri 09 Jul 2004 - 22:22:08 EST

I think:

frequency <- function(x) table(as.factor(x))

should work generally. Not sure what you mean by the plotting.

-roger

Dan Bolser wrote:

> Hi, I have designed the following function to extract count frequencies

*> from an array of integers. For example...
**>
**> # Tipical array
**> x <- cbind(1,1,1,1,1,2,2,2,2,3,3,3,3,4,5,6,7,22)
**>
**> # Define the frequency function
**> frequency <-
**> function(x){
**> max <- max(x)
**> j <- c()
**> for(i in 1:max){
**> j[i] <- length(x[x==i])
**> }
**> return(j)
**> }
**>
**> fre <- frequency(x)
**> plot(fre)
**>
**> How can I ...
**>
**> 1) Make this a general function so my array could be of the form
**>
**> # eats!
**> x <- cbind( "egg","egg","egg","egg","ham","ham","ham","ham","chicken" )
**>
**> fre <- frequency(x)
**> plot(fre)
**>
**> 2) Make frequency return an object which I can call plot on (allowing the
**> prob=TRUE option).
**>
**> Cheers,
**> Dan.
**>
**> ______________________________________________
**> R-help@stat.math.ethz.ch mailing list
**> **https://www.stat.math.ethz.ch/mailman/listinfo/r-help
**> PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html
*

>

R-help@stat.math.ethz.ch mailing list

https://www.stat.math.ethz.ch/mailman/listinfo/r-help PLEASE do read the posting guide! http://www.R-project.org/posting-guide.html Received on Fri Jul 09 22:32:51 2004

*
This archive was generated by hypermail 2.1.8
: Wed 03 Nov 2004 - 22:54:47 EST
*