함수 mode()

1 개요[ | ]

함수 mode()
함수 getmode()

2 PHP[ | ]

PHP

Copy

function mode($arr) {
	$count_values = array_count_values($arr);
	$max = max($count_values);
	foreach( $count_values as $key => $count) if( $max == $count ) return $key;
}
$fruits = ['orange','banana','apple','orange','orange','apple'];
echo mode( $fruits ); # orange

Loading

3 R[ | ]

R getmode() 문서를 참고하십시오.

R

Copy

getmode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}
v <- c(2,1,2,3,1,2)
print( getmode( v ) )
# 2

R

Copy

getmode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}
charv <- c("o","it","the","it","it")
print( getmode( charv ) )
# "it"

4 같이 보기[ | ]