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