함수 mode()

1 개요

함수 mode()

함수 getmode()

함수 majority()

2 PHP

function majority($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 majority( $fruits );
# orange

3 R

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

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

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 같이 보기

• 함수 mean()
• 함수 median()
• 함수 array_count_values()
• 최빈값
• 다수결