R help - Mar 2011 - calculating the mode in R...

Dear R users

I?m aware that the package ?modest? is useful to find the mode in an array.

However, I?d like to know if someone has translated the ?mode? function built-in
in MATLAB into R language. This function finds the most frequent value in an
array (http://www.mathworks.com/help/techdoc/ref/mode.html).

Best

Fer

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On 30/03/11 02:47, Fernando Marmolejo Ramos wrote:
> Dear R users
> 
> I?m aware that the package ?modest? is useful to find the mode in an array.
> 
> However, I?d like to know if someone has translated the ?mode? function
built-in
> in MATLAB into R language. This function finds the most frequent value in
an
> array (http://www.mathworks.com/help/techdoc/ref/mode.html).
This sounds like a combination of the table() which tabulates your data,
and the max() function to identify the max - but then you have to
specify what to do when two values have the same count.

Rainer
> 
> Best
> 
> Fer
> 
> ______________________________________________
> R-help at 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.

- -- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation
Biology, UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Natural Sciences Building
Office Suite 2039
Stellenbosch University
Main Campus, Merriman Avenue
Stellenbosch
South Africa

Tel:        +33 - (0)9 53 10 27 44
Cell:       +27 - (0)8 39 47 90 42
Fax (SA):   +27 - (0)8 65 16 27 82
Fax (D) :   +49 - (0)3 21 21 25 22 44
Fax (FR):   +33 - (0)9 58 10 27 44
email:      Rainer at krugs.de

Skype:      RMkrug
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.10 (GNU/Linux)
Comment: Using GnuPG with Mozilla - http://enigmail.mozdev.org/

iEYEARECAAYFAk2S6TIACgkQoYgNqgF2ego48ACdHfCL+BdGA6wZ4bHrjq2wCXJW
vIoAnREiHFeSbJy9vYQPEnRhpV6nLbNB
=suk2
-----END PGP SIGNATURE-----

Here's my modest contribution:


smode<-function(x){
	xtab<-table(x)
	modes<-xtab[max(xtab)==xtab]
	mag<-as.numeric(modes[1]) #in case mult. modes, this is safer
	themodes<-names(modes)
	mout<-list(themodes=themodes,modeval=mag)
	return(mout)
	}

(I called it 'smode' because there's a 'mode' func somewhere
which is
related to the data type or something)

Carl