<div dir="ltr">Éder,<div>Agradeço a sua sugestão, mas não resolveu.</div><div>a função str() retorna para cada arquivo o seguinte:</div><div>str(Shanghai)</div><div><div>An ‘xts’ object on 2011-01-04/2014-12-31 containing:</div><div> Data: num [1:970, 1] 2853 2839 2824 2839 2792 ...</div><div> - attr(*, "dimnames")=List of 2</div><div> ..$ : NULL</div><div> ..$ : chr "Shanghai"</div><div> Indexed by objects of class: [Date] TZ: UTC</div><div> xts Attributes: </div><div> NULL</div></div><div><br></div><div>str(vale.xts)</div><div><div>An ‘xts’ object on 2011-01-01/2011-02-18 containing:</div><div> Data: chr [1:49, 1] " 168.94" " 184.98" " 54.74" " -36.45" " 174.35" " 158.20" ...</div><div> - attr(*, "dimnames")=List of 2</div><div> ..$ : NULL</div><div> ..$ : chr "vale"</div><div> Indexed by objects of class: [POSIXct,POSIXt] TZ: </div><div> xts Attributes: </div><div> NULL</div></div><div><br></div><div>Acredito que essas diferenças é que estão motivando a dificuldade na utilização do merge().</div><div><br></div><div>O arquivo Shanghai eu obtive de:</div><div><div>Shanghai = Quandl("YAHOO/INDEX_SSEC",type="xts",start_date=dtini,end_date=dtfin)</div></div><div><br></div><div>Já o arquivo vale.xts foi obtido de:</div><div><div>vale5 = read.csv("C:/Users/Edilson/Documents/R/gap - vale5 2011-2014.csv",header = TRUE, sep =",",dec=".")</div></div><div>td <- seq(as.Date(dtini),as.Date(dtfin),"days")<br></div><div><div>vale.z <- zoo(x=vale5,<a href="http://order.by">order.by</a>=td)<br></div><div>vale.ts <- as.timeSeries(x=vale.z)</div><div>vale.ts<-vale.ts[1:49,-1]</div><div>vale.xts<-as.xts(x=vale.ts)</div><div>vale.xts[<a href="http://is.na">is.na</a>(vale.xts)]=0</div></div><div><br></div><div>Eu utilizou sempre:</div><div>library("Quandl")</div><div>library("timeSeries")</div><div>library("zoo")</div><div>library(xts)</div><div>library(quantmod)</div><div>library(car)</div><div>library(FinTS)</div><div>library(nortest)</div><div>library(fpp)</div><div>library(fPortfolio)</div><div>library(PerformanceAnalytics) </div><div><br></div><div><br></div><div>Agradeço antecipadamente.</div><div><br></div><div>Edilson Floriano dos Santos</div><div><br></div><div><br></div><div><br></div></div><div class="gmail_extra"><br><div class="gmail_quote">Em 7 de maio de 2015 11:11, Éder Comunello <span dir="ltr"><<a href="mailto:comunello.eder@gmail.com" target="_blank">comunello.eder@gmail.com</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div dir="ltr"><div><font face="arial, helvetica, sans-serif">Edilson, veja se o exemplo ajuda...,</font></div><div><font face="monospace, monospace"><br></font></div><div><font face="monospace, monospace">require(xts)</font></div><div><font face="monospace, monospace">data(sample_matrix)</font></div><div><span style="font-family:monospace,monospace">xts1 <- as.xts(sample_matrix[1:30,])</span><br></div><div><font face="monospace, monospace">xts2 <- as.xts(sample_matrix[15:45,])</font></div><div><font face="monospace, monospace">merge.xts(xts1, xts2, join="inner")</font></div></div><div class="gmail_extra"><br clear="all"><div><div><div dir="ltr">Éder Comunello <<a href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>> <br>Dourados, MS - [22 16.5'S, 54 49'W]<br></div></div></div>
<br><div class="gmail_quote"><div><div class="h5">Em 6 de maio de 2015 20:14, Edilson Santos <span dir="ltr"><<a href="mailto:edilson.floriano@gmail.com" target="_blank">edilson.floriano@gmail.com</a>></span> escreveu:<br></div></div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div class="h5"><div dir="ltr">Caros usuários,<div>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.</div><div>Utilizando o código abaixo não tive sucesso:</div><div><br></div><div>OS dois arquivos: Shanghai.xts e vale.xts</div><div><br></div><div><div>ShVale=merge.xts(Shanghai.xts,vale.xts,all = FALSE,suffixes=NULL,</div><div> join="outer",retside=TRUE,retclass="xts")</div><div>ShVale = na.exclude(object=ShVale)</div><div><br></div><div>o arquivo resultante (ShVale) tem não tem dados, embora existam datas coincidentes entre os dois arquivos originais.</div><br><div>Edilson Floriano dos Santos</div>
</div></div>
<br></div></div>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br></div>
<br>_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br></blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature">Edilson</div>
</div>