http://www.okada.jp.org/RWiki/?R%A4%CE%B4%F0%CB%DC%A5%D1%A5%C3%A5%B1%A1%BC%A5%B8%C3%E6%A4%CE%BB%FE%B7%CF%CE%F3%A5%AA%A5%D6%A5%B8%A5%A7%A5%AF%A5%C8%B0%EC%CD%F7 を見てると、embed というのがあった。 > example(embed) embed> x <- 1:10 embed> em…

Filter が vector から要素を取り出す関数なら filter は何だろう？と思ったので調べてみた。 > ?filter Linear Filtering on a Time Series Description: Applies linear filtering to a univariate time series or to each series separately of a multiva…

Filter 関数で function を書かずに済むようにしてみた。 デフォルトの引数を「.」にして、Bool値のベクトル返すような式を第一引数に入れる。 fi <- function(f, .) { ind <- as.logical(eval(substitute(f))) .[!is.na(ind) & ind] } > fi(3 < . & . < 7, …