2014-01-27から1日間の記事一覧

同じ値が並んでいる範囲の検出

R

sames.st.end <- function(x){ # 差分を取る diff.x <- diff(x) # 差分が0か否かで0/1に分ける s.x <- sign(abs(diff.x)) # その差分を取ると、同一値連続の左右端を検出 diff.s.x <- diff(s.x) # 左右端に連続かかっているかどうかで処理が分岐する st <- 1…