Muchas series económicas se publican mensualmente, pero sólo como tasas interanuales, es decir, la variación de un índice subyacente con respecto al año anterior, expresada en porcentajes. Deseo convertir estas publicaciones en valores MoM (month-over-month), para poder recrear con precisión al menos parte del índice subyacente. En el gráfico siguiente, por ejemplo, busco la pendiente de la línea roja, dadas las dos pendientes de la línea verde, lo que me permitiría recrear el índice subyacente.
En R:
library("xts")
set.seed(212)
mm = (runif(24) - 0.3) / 100
idx = c(1, cumprod(mm + 1))
yy = rollapply(idx, 13, function(x) (x[13]/x[1]) - 1)
Así que dado sólo yy, me gustaría encontrar los mm, o al menos los últimos 12 de ellos (o idx directamente que es mi objetivo final). ¿Cómo lo hago? ¿Es un gran conjunto de 12 ecuaciones simultáneas que tengo que resolver?
Obsérvese que aunque sólo he dibujado 2 líneas YoY en el gráfico, en realidad tengo todas las de los últimos 13 meses (retrocediendo 12 meses cada vez), y con ellas me gustaría calcular el mayor número posible de valores MoM.