r-statistics-fanの日記

統計好き人間の覚書のようなもの

テレビ

多人数でババ抜きをすると何ターンかかるか(訂正)

// 多人数でババ抜きをすると何ターンかかるか(訂正) ばば抜きのシミュレーション - 裏 RjpWikiさんの記事のお陰で、間違いが見つかった。 訂正版を記載する。 今回も非常に勉強になった。blogをはじめて本当に良かった。 それにしても、一から作りなおし…

ババ抜きを多人数ですると何ターンくらいかかるか(粘りの珍百景をシミュレートする)

// ババ抜きを多人数ですると何ターンかかるか(粘りの珍百景をシミュレートする) ####### 裏 RjpWikiさんのブログをみて、ざっと見たところ、 当方のコードに間違いを発見しました =>とりあえず、間違いは直しました。 訂正後の記事はこちら ##…

20140301世界一受けたい授業、イヌvs.ネコを統計解析する

// 20140301世界一受けたい授業、イヌvs.ネコ 今日は子どもと世界一受けたい授業を見ていた。 ネコvs.犬の対決があった。 スポーツなんかはたまたまその時審査員を買収さえすれば勝ちっていうのもアリの世界みたいですし、矛盾な番組でも色々あったみたいで…

ロケミツのサイコロの統計その3(4回連続して6がでるとイカサマ?)

// 6が連続4回でるとイカサマ? これは、前回の記事で使った関数を流用できる prenzoku <- function(m, q, r) { pren <- numeric(m - r + 1) pren[1] <- q^r pren[2:(r + 1)] <- (1 - q) * q^r for (i in (r + 2):(m - r + 1)) { pren[i] <- (1 - q) * q^r…

ロケミツのサイコロの統計その2(連続して1が出ないのが20回続いたらイカサマ?)

// ロケミツのサイコロの統計(連続して1が出ないのが20回続いたら) #どうもグラフがうまくスマホで表示できない。グラフが見えなかったらごめんなさい。 1が連続20回出ていないらしい。 この確率を求める。 単純に1が連続20回でないのは、(5/6)20…

ロケみつのサイコロの統計その1(イカサマサイコロなのか?)

はじめは、遊び記事から。 筆者はロケみつが好きである。 海外の学会で発表する機会があるのだが、学生時代から 英語は大の苦手である。仕事柄読むのはそれなりに出来る のだが、英会話が全然ダメなのだ。センター試験でヒアリング なんて無かったような気が…