Dear R People:
thank you for the many helpful sets of code that I received!!!
I combined several of the concepts for the following function:
> mode1
function(x) {
y <- rle(sort(x))
z <- y$values[y$lengths==max(y$lengths)]
return(z)
}
> xm
[1] 22 15 10 30 25 26 2 17 28 2 24 6 26 24 5 22 20 14
> mode1(xm)
[1] 2 22 24 26
>
This will pick up multiple modes.
Again thanks to all who helped!
Sincerely,
Erin
mailto: [EMAIL PROTECTED]
______________________________________________
[EMAIL PROTECTED] mailing list
https://www.stat.math.ethz.ch/mailman/listinfo/r-help
