Cómo usar el período XTS.¿aplicar () usando funciones indicadoras TTR?

Question

Parece que no puedo usar las funciones del indicador TTR directamente con el punto.aplicar () desde XTS.Por favor, ayúdame a descubrir qué estoy haciendo mal.

> require(TTR)
> require(quantmod)
> require(xts)
> data(sample_matrix)

> period.apply(sample_matrix, endpoints(sample_matrix,"weeks"), RSI)

Error in EMA(c(NA, 0.190714286249097, 0.190459011271606, 0, 0, 0, NA,  : 
  Invalid 'n'

También traté de as.xts(sample_matrix) primero, pero no ayuda.

Answer 1

Según los comentarios a tu pregunta, creo que quieres algo como esto:

> RSI(Cl(to.period(sample_matrix, "weeks", 2)),4)
               [,1]
2007-01-07       NA
2007-01-21       NA
2007-02-04       NA
2007-02-18       NA
2007-03-04 58.42659
2007-03-18 40.25955
2007-04-01 27.12793
2007-04-15 50.26745
2007-04-29 38.97652
2007-05-13 22.03943
2007-05-27 28.75952
2007-06-10 22.21261
2007-06-24 21.58207
2007-06-30 41.69338