**CURSO DE R** \\ [[indice|indice curso de R]] \\

====== SERIES TEMPORALES CON ZOO ======

He cargado una librería para el manejo de series temporales que se llama zoo.

Para cargarla seguir estos pasos ([[curso_de_r_0|instalación]].

Una vez la tenemos en R, para usarla lo primero es cargarla en memoria:
<code c>
> library("zoo")
</code>

===== Leer serie temporal desde fichero =====

Tengo los datos en un fichero llamado''ibex35.dat'' de texto en la forma:
<code c>
fecha,cierre
03/01/2000,11610
04/01/2000,11206.6
05/01/2000,10863.1
07/01/2000,11102.4
10/01/2000,11173.3
11/01/2000,11012.4
12/01/2000,10851.8
13/01/2000,10931.9
14/01/2000,11184
17/01/2000,11285.6
18/01/2000,11066.3
19/01/2000,11120.7
.........
</code>

para leer los datos como serie temporal escribo

<code c>
> serie1<-read.zoo("c:\\ibex35_1.dat",sep=",",header=TRUE, format = "%d/%m/%Y")
</code>

Ya lo tengo en R.
Para ver la serie temporal:
<code c>
> plot(serie1)
</code>

===== Unir series =====

si por ejemplo quiero unir en la misma serie otra, uso el comando ''merge''
<code c>
> m<-merge(serie1,lag(serie1,-20))
</code>

===== Pintar series =====

si las quiero pintar juntas escribo:
<code c>
> plot(m,plot.type="single",col=c("red","blue"),lwd=2)
</code>

===== Seleccionar entre dos fechas =====

Para seleccionar entre dos fechas:
<code c>
> m1=window(serie1,start=as.Date("2006-01-01"),end=as.Date("2007-01-01"))
> plot(m1)
</code>

===== Leer datos financieros de Yahoo directamente =====
Hay una forma sencilla de leer datos de yahoo directamentes desde R
lo prinmero es cargar la librería tseries y despues ejecutar el comando
<code c>
> library("tseries")
> ibex<-get.hist.quote(instrument="^IBEX",start="2004-01-01",end="2004-12-31",quote="Close")
>#para leer datos mensuales:
> ibex_men<-get.hist.quote(instrument="^IBEX",start="2004-01-01",end="2004-12-31",compression="m",quote="Close")
</code>