"R 최빈값 getmode()"의 두 판 사이의 차이

2021년 4월 14일 (수) 01:26 기준 최신판

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

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

@@ 1번째 줄: / 1번째 줄: @@
 ==개요==
-;R mode()
 ;R getmode()
-<source lang='r'>
+<syntaxhighlight lang='r' run>
 getmode <- function(v) {
    uniqv <- unique(v)
@@ 9번째 줄: / 8번째 줄: @@
 }
 v <- c(2,1,2,3,1,2)
-print( getmode( v ) )
+getmode( v )
-# 2
+</syntaxhighlight>
-</source>
+<syntaxhighlight lang='r' run>
-<source lang='r'>
 getmode <- function(v) {
    uniqv <- unique(v)
@@ 18번째 줄: / 16번째 줄: @@
 }
 charv <- c("o","it","the","it","it")
-print( getmode( charv ) )
+getmode( charv )
-# "it"
+</syntaxhighlight>
-</source>
 ==같이 보기==
+* [[R mode()]] - 최빈값과 관계없는 다른 함수
+* [[R mean()]]
+* [[R median()]]
+* [[최빈값]]
 * [[함수 mode()]]
 [[분류: R]]