[R-br] Emparelhamento de arquivos

Éder Comunello comunello.eder em gmail.com
Sexta Maio 8 14:22:33 BRT 2015


Edilson, boa tarde!

O ideal é que você disponibilizasse uma amostra de seus dados pra testar.
Mas pela saída do str() é quase certo que o problema está na
incompatibilidade dos índices de Shanghai e vale.xts, pois um é Date e o
outro POSIX. Os dois precisam ter o mesmo formato.

Você pode tentar criar seu objeto "td" como POSIX ou mudar o padrão de
index(vale.xts) pra Date.

Um CMR reproduzindo o erro abaixo...


### <code r>
require(xts)

xts1 <-structure(c(50.0397819115463, 50.2304961977954, 50.420955209067,
50.3734680543285, 50.2443255196795, 50.1177772350145, 50.421876002125,
50.420955209067, 50.3734680543285, 50.2443255196795, 49.9504146442813,
50.2304961977954, 50.2641365663597, 50.2210338242788, 50.1112075487643,
50.1177772350145, 50.3976663383861, 50.3323571013133, 50.3345948961691,
50.1811210391819), .Dim = c(5L, 4L), .Dimnames = list(NULL, c("Open",
"High", "Low", "Close")), index = structure(c(1167710400, 1167796800,
1167883200, 1167969600, 1168056000), tzone = "", tclass = c("POSIXct",
"POSIXt")), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct",
"POSIXt"), .indexTZ = "", tzone = "", class = c("xts", "zoo"))

xts3 <- xts2 <- structure(c(50.420955209067, 50.3734680543285,
50.2443255196795,
50.1321122972067, 50.0355467742705, 50.420955209067, 50.3734680543285,
50.2443255196795, 50.2156114607262, 50.1036323973342, 50.2641365663597,
50.2210338242788, 50.1112075487643, 49.9918544993091, 49.9697097184701,
50.3323571013133, 50.3345948961691, 50.1811210391819, 49.9918544993091,
49.988063256042), .Dim = c(5L, 4L), .Dimnames = list(NULL, c("Open",
"High", "Low", "Close")), index = structure(c(1167868800, 1167955200,
1168041600, 1168128000, 1168214400), tclass = "Date"), .indexCLASS =
"Date", tclass = c("POSIXct",
"POSIXt"), .indexTZ = "", tzone = "", class = c("xts", "zoo"))

str(xts1); str(xts2)

index(xts1)
# [1] "2007-01-02 AMT" "2007-01-03 AMT" "2007-01-04 AMT" "2007-01-05 AMT"
"2007-01-06 AMT"

index(xts3) <- as.POSIXct(as.POSIXlt(index(xts2)), tz=Sys.timezone());
index(xts3)
# [1] "2007-01-04 AMT" "2007-01-05 AMT" "2007-01-06 AMT" "2007-01-07 AMT"
"2007-01-08 AMT"

merge.xts(xts1, xts2, join="inner")
#                Open     High      Low    Close   Open.1   High.1    Low.1
 Close.1
# 2007-01-04 50.42096 50.42096 50.26414 50.33236 50.42096 50.42096 50.26414
50.33236
# 2007-01-05 50.37347 50.37347 50.22103 50.33459 50.37347 50.37347 50.22103
50.33459
# 2007-01-06 50.24433 50.24433 50.11121 50.18112 50.24433 50.24433 50.11121
50.18112
### </code>




Éder Comunello <c <comunello.eder em gmail.com>omunello.eder em gmail.com>
Dourados, MS - [22 16.5'S, 54 49'W]
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20150508/519230d9/attachment.html>


Mais detalhes sobre a lista de discussão R-br