Function

コメント・参照等
  • 連続して条件式を満たす回数を返す関数

FUN = f_check_serial_true.r
function (x0, txt = "0 <= x") 
{
    z <- vector()
    cnt <- 0
    for (iii in seq(x0)) {
        x <- x0[iii]
        if (eval(parse(text = txt))) {
            cnt <- cnt + 1
        }
        else {
            cnt <- 0
        }
        z[iii] <- cnt
    }
    return(z)
}