Hi Gundala,
This would be a way to do it:
names(which.max(table(myvector)))
For example:
> set.seed(99)
> y <- sample(letters[1:3], 40, replace=TRUE)
[1] "b" "a" "c" "c" "b" "c" "c" "a" "b" "a" "b" "b" "a" "b" "c" "b"
[17] "b" "a" "a" "a" "a" "a" "c" "b" "c" "b" "a" "c" "a" "a" "b" "a"
[33] "b" "b" "a" "b" "c" "c" "b" "c"
> table(y)
y
a b c
14 15 11
> names(which.max(table(y)))
[1] "b"
In the case of your 'myvector', you would need to coerce the result
to "numeric". This could be achieved in a more programmatic way with:
mostrepeated <- function(x) as(names(which.max(table(x))), mode(x))
mostrepeated(myvector)
Cheers,
H.
Quoting Gundala Viswanath <[EMAIL PROTECTED]>:
Hi,
Is there a way to do it?
For example I have the following vector:
print(myvector)
[1] -295.8045 -295.8045 -295.8045 -295.8045 -325.4754 -295.8045 -295.8045
[8] -295.8045 -413.2099 -295.8045
I want it to return -295.8045, which occur most often.
- Gundala Viswanath
Jakarta - Indonesia
______________________________________________
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.
______________________________________________
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.
