[R-br] Emparelhamento de arquivos

[Edilson Santos]

Éder,
Agradeço a sua sugestão, mas não resolveu.
a função str() retorna para cada arquivo o seguinte:
str(Shanghai)
An ‘xts’ object on 2011-01-04/2014-12-31 containing:
  Data: num [1:970, 1] 2853 2839 2824 2839 2792 ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "Shanghai"
  Indexed by objects of class: [Date] TZ: UTC
  xts Attributes:
 NULL

str(vale.xts)
An ‘xts’ object on 2011-01-01/2011-02-18 containing:
  Data: chr [1:49, 1] " 168.94" " 184.98" "  54.74" " -36.45" " 174.35" "
158.20" ...
 - attr(*, "dimnames")=List of 2
  ..$ : NULL
  ..$ : chr "vale"
  Indexed by objects of class: [POSIXct,POSIXt] TZ:
  xts Attributes:
 NULL

Acredito que essas diferenças é que estão motivando a dificuldade na
utilização do merge().

O arquivo Shanghai eu obtive de:
Shanghai =
Quandl("YAHOO/INDEX_SSEC",type="xts",start_date=dtini,end_date=dtfin)

Já o arquivo vale.xts foi obtido de:
vale5 = read.csv("C:/Users/Edilson/Documents/R/gap - vale5
2011-2014.csv",header = TRUE, sep =",",dec=".")
td <- seq(as.Date(dtini),as.Date(dtfin),"days")
vale.z <- zoo(x=vale5,order.by=td)
vale.ts <- as.timeSeries(x=vale.z)
vale.ts<-vale.ts[1:49,-1]
vale.xts<-as.xts(x=vale.ts)
vale.xts[is.na(vale.xts)]=0

Eu utilizou sempre:
library("Quandl")
library("timeSeries")
library("zoo")
library(xts)
library(quantmod)
library(car)
library(FinTS)
library(nortest)
library(fpp)
library(fPortfolio)
library(PerformanceAnalytics)


Agradeço antecipadamente.

Edilson Floriano dos Santos




Em 7 de maio de 2015 11:11, Éder Comunello <comunello.eder em gmail.com>
escreveu:

> Edilson, veja se  o exemplo ajuda...,
>
> require(xts)
> data(sample_matrix)
> xts1 <- as.xts(sample_matrix[1:30,])
> xts2 <- as.xts(sample_matrix[15:45,])
> merge.xts(xts1, xts2, join="inner")
>
> Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
> Dourados, MS - [22 16.5'S, 54 49'W]
>
> Em 6 de maio de 2015 20:14, Edilson Santos <edilson.floriano em gmail.com>
> escreveu:
>
>> Caros usuários,
>> Preciso emparelhar dados de dois arquivos "xts", por data, sendo que em
>> cada um dos arquivos somente algumas datas são coincidentes. São essas que
>> eu gostaria de emparelhadas. Alguém idéia como poderia fazer.
>> Utilizando o código abaixo não tive sucesso:
>>
>> OS dois arquivos: Shanghai.xts e vale.xts
>>
>> ShVale=merge.xts(Shanghai.xts,vale.xts,all = FALSE,suffixes=NULL,
>>                  join="outer",retside=TRUE,retclass="xts")
>> ShVale = na.exclude(object=ShVale)
>>
>> o arquivo resultante (ShVale) tem não tem dados, embora existam datas
>> coincidentes entre os dois arquivos originais.
>>
>> Edilson Floriano dos Santos
>>
>> _______________________________________________
>> R-br mailing list
>> R-br em listas.c3sl.ufpr.br
>> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
>> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
>> código mínimo reproduzível.
>>
>
>
> _______________________________________________
> R-br mailing list
> R-br em listas.c3sl.ufpr.br
> https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
> Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
> código mínimo reproduzível.
>



-- 
Edilson
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150507/bd88d61e/attachment.html>