datos=read.csv("pag1.csv",header=T,sep=',')
library(RColorBrewer)

col=brewer.pal(5,'Dark2')
argser=ts(datos$argentina.servicio,st=1970,freq=1)
braser=ts(datos$brazil.service,st=1970,freq=1)
colser=ts(datos$colombia.servicio,st=1970,freq=1)
mexser=ts(datos$mexico.servicio,st=1970,freq=1)
venser=ts(datos$venezuela.servicio,st=1970,freq=1)
grupo1=cbind(argser,braser,colser,mexser,venser)

argdif=ts(datos$difarg,st=1970,freq=1)
bradif=ts(datos$difbra,st=1970,freq=1)
coldif=ts(datos$difcol,st=1970,freq=1)
mexdif=ts(datos$difmex,st=1970,freq=1)
vendif=ts(datos$difven,st=1970,freq=1)
grupo2=cbind(argdif,bradif,coldif,mexdif,vendif)

argt=ts(datos$tranrg,st=1970,freq=1)
brat=ts(datos$tranbra,st=1970,freq=1)
colt=ts(datos$trancol,st=1970,freq=1)
mext=ts(datos$tranmex,st=1970,freq=1)
vent=ts(datos$tranven,st=1970,freq=1)
grupo3=cbind(argt,brat,colt,mext,vent)