(→같이 보기) |
(→개요) |
||
| (다른 사용자 한 명의 중간 판 3개는 보이지 않습니다) | |||
| 2번째 줄: | 2번째 줄: | ||
;R getmode() | ;R getmode() | ||
< | <syntaxhighlight lang='r' run> | ||
getmode <- function(v) { | getmode <- function(v) { | ||
uniqv <- unique(v) | uniqv <- unique(v) | ||
| 8번째 줄: | 8번째 줄: | ||
} | } | ||
v <- c(2,1,2,3,1,2) | v <- c(2,1,2,3,1,2) | ||
getmode( v ) | |||
</syntaxhighlight> | |||
</ | <syntaxhighlight lang='r' run> | ||
< | |||
getmode <- function(v) { | getmode <- function(v) { | ||
uniqv <- unique(v) | uniqv <- unique(v) | ||
| 17번째 줄: | 16번째 줄: | ||
} | } | ||
charv <- c("o","it","the","it","it") | charv <- c("o","it","the","it","it") | ||
getmode( charv ) | |||
</syntaxhighlight> | |||
</ | |||
==같이 보기== | ==같이 보기== | ||
2021년 4월 14일 (수) 01:26 기준 최신판
1 개요[ | ]
- R getmode()
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 )
2 같이 보기[ | ]
- R mode() - 최빈값과 관계없는 다른 함수
- R mean()
- R median()
- 최빈값
- 함수 mode()
로그인하시면 댓글을 쓸 수 있습니다.
{{ comment.name }}
{{ comment.created | snstime }}
-
{{comment.page_title}} ―{{comment.name}}