// ６が連続４回でるとイカサマ？ これは、前回の記事で使った関数を流用できる 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…

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

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