エントリーの編集
エントリーの編集は全ユーザーに共通の機能です。
必ずガイドラインを一読の上ご利用ください。
記事へのコメント0件
- 注目コメント
- 新着コメント
このエントリーにコメントしてみましょう。
注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
- バナー広告なし
- ミュート機能あり
- ダークモード搭載
関連記事
Rで最頻値を求める - Qiita
statmode <- function(x) { names(which.max(table(x))) } x <- c("a", "b", "b", "c", "c", "c", "d", ... statmode <- function(x) { names(which.max(table(x))) } x <- c("a", "b", "b", "c", "c", "c", "d", "d", "e") y <- c(1, 1, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4, 5, 5) z <- c(1.1, 1.1, 2.2, 2.3, 2.4, 3.1, 3.2, 3.4, 3.5, 4.8, 4.8, 4.8, 5.6, 5.6) (mode <- statmode(x)) (mode <- statmode(y)) (mode <- statmode(z))