surcontre
Nuovo forumer
.......
serve ad avere un time series di booleani dove il giorno del mese è l'ultimo
...
.
In pratica ciò che ti serve è un oggetto xts che contenga un indice numerico riferito al mese:
Codice:
[COLOR=red]require(quantmod)[/COLOR]
[COLOR=red]getSymbols("SPY",from="2012-01-27")[/COLOR]
[COLOR=red]m <- format(index(SPY), format="%m") [/COLOR]
[COLOR=red]a <- xts(order.by=index(SPY)) [/COLOR]
[COLOR=red]n_mese <- merge(a, Mese=m) # oggetto xts[/COLOR]
[COLOR=red]head(n_mese)[/COLOR]
[COLOR=blue] Mese[/COLOR]
[COLOR=blue]2012-01-27 1[/COLOR]
[COLOR=blue]2012-01-30 1[/COLOR]
[COLOR=blue]2012-01-31 1[/COLOR]
[COLOR=blue]2012-02-01 2[/COLOR]
[COLOR=blue]2012-02-02 2[/COLOR]
[COLOR=blue]2012-02-03 2[/COLOR]
Ciao