[[alternative HTML version deleted]]
You can try ?table.
Best regards,
Carlos J. Gil Bellosta
http://www.datanaytics.com
> ______________________________________________
> R-h...@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.
______________________________________________
R-h...@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.
x = round(rnorm(100,sd=5))
my_mode = as.numeric(names(table(x))[which.max(table(x))])
> ______________________________________________
> R-h...@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.
>
>
--
Mike Lawrence
Graduate Student
Department of Psychology
Dalhousie University
www.thatmike.com
Looking to arrange a meeting? Check my public calendar:
http://www.thatmike.com/mikes-public-calendar
~ Certainty is folly... I think. ~
--- On Mon, 1/26/09, Mike Lawrence <mi...@thatmike.com> wrote:
[[alternative HTML version deleted]]
It depends upon the type of data you are dealing with.
If it is discrete, you can use table() to calculate frequencies and then
take the max:
set.seed(1)
tl <- table(sample(letters, 100, replace = TRUE))
> tl
a b c d e f g h i j k l m n o p q r s t u v w x y z
2 3 3 3 2 4 6 1 6 5 6 4 7 2 2 2 5 4 5 3 8 4 5 4 3 1
> tl[which.max(tl)]
u
8
Alternatively, if the data is continuous, then you will need to look at
some form of density estimation. There have been various discussions
over the years on how to go about doing this, but a simplistic approach
would be:
set.seed(1)
x <- rnorm(100)
dx <- density(x)
> dx$x[which.max(dx$y)]
[1] 0.3294585
# Review plot
plot(dx)
abline(v = dx$x[which.max(dx$y)])
See ?table, ?which.max and ?density
HTH,
Marc Schwartz
[[alternative HTML version deleted]]