r - ラグのある一連のxts/zooオブジェクトに最小/最大を適用する

Question

クローズ列のmaxは有効ですが、なぜmaxクローズが遅れているのNAですか？

> library(quantmod)
> s <- get(getSymbols('nvmi'))
> max(Cl(s))
[1] 11.48
> max(Lag(Cl(s)))
[1] NA
> max(as.numeric(Lag(Cl(s))))
[1] NA

Answer 1

なぜなら、デフォルトLagでパッドが付いているからです。NAへの呼び出しで使用na.rm=TRUEしますmax。

> head(Cl(s))
           NVMI.Close
2007-01-03       2.60
2007-01-04       2.59
2007-01-05       2.70
2007-01-08       2.60
2007-01-09       2.47
2007-01-10       2.42
> head(Lag(Cl(s)))
           Lag.1
2007-01-03    NA
2007-01-04  2.60
2007-01-05  2.59
2007-01-08  2.70
2007-01-09  2.60
2007-01-10  2.47
> max(Lag(Cl(s)), na.rm=TRUE)
[1] 11.48