debug() というデバッグ関数を勉強した。 今、連続した１の開始点を見つける関数findruns()を作ったとする。 とりあえず、テストデータで試してみると # 誤りあり findruns <- function(x,k) { n <- length(x) runs <- NULL for (i in 1:(n-k)) { if (all(x[…