[R] Two similar zoo objects with different structures, how to get same structure?
Sergey Goriatchev
sergeyg at gmail.com
Wed Jan 21 16:51:43 CET 2009
Dear Dr. Grothendieck,
First of all, I realized I did not load zoo package before I tried the
first str(bldata). If I load zoo and then do str(bldata) I get the
following:
'zoo' series from 7305 to 14609
Data: num [1:5219, 1:12] 91.9 91.8 91.7 91.8 91.7 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:12] "ED4 COMDTY" "ED12 COMDTY" "ER4 COMDTY" "ER12 COMDTY" ...
Index: Classes 'dates', 'times' atomic [1:5219] 7305 7306 7307 7308 7309 ...
..- attr(*, "format")= chr "m/d/y"
..- attr(*, "origin")= Named num [1:3] 1 1 1970
.. ..- attr(*, "names")= chr [1:3] "month" "day" "year"
Now, I've done what you said and here is the ASCII representation of
the data (I don't know if one can attach files here, and anyway I
cannot attach files where I am, but the following would reproduce
exactly):
a <- (structure(c(98.585, 98.355, 98.48, 98.585, 98.67, 98.695, 98.81,
98.865, 98.865, 98.865, 98.735, 98.805, 98.805, 97.435, 97.18,
97.165, 97.265, 97.34, 97.415, 97.445, 97.505, 97.525, 97.635,
97.625, 97.53, 97.53, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 0.25,
0.25, 0.25, 0.25, 0.25, 0.25, 0.25, 2, 2, 2, 2, 2, 1.5, 1.5,
1.5, 1.5, 1.5, 1.5, 1.5, 1.5), .Dim = c(13L, 4L), index = structure(c(14245,
14246, 14249, 14250, 14251, 14252, 14253, 14256, 14257, 14258,
14259, 14260, 14263), format = "m/d/y", origin = structure(c(1,
1, 1970), .Names = c("month", "day", "year")), class = c("dates",
"times")), class = "zoo", .Dimnames = list(NULL, c("ED4 COMDTY",
"ED12 COMDTY", "FDTR INDEX", "UKBRBASE INDEX"))))
Copy-paste to R prompt shows following:
ED4 COMDTY ED12 COMDTY FDTR INDEX UKBRBASE INDEX
14245 98.585 97.435 0.25 2.0
14246 98.355 97.180 0.25 2.0
14249 98.480 97.165 0.25 2.0
14250 98.585 97.265 0.25 2.0
14251 98.670 97.340 0.25 2.0
14252 98.695 97.415 0.25 1.5
14253 98.810 97.445 0.25 1.5
14256 98.865 97.505 0.25 1.5
14257 98.865 97.525 0.25 1.5
14258 98.865 97.635 0.25 1.5
14259 98.735 97.625 0.25 1.5
14260 98.805 97.530 0.25 1.5
14263 98.805 97.530 0.25 1.5
On my Bloomberg machine, in R console, the rownames look like:
ED4 COMDTY ED12 COMDTY FDTR INDEX UKBRBASE INDEX
01/01/09 98.585 97.435 0.25 2.0
01/02/09 98.355 97.180 0.25 2.0
01/05/09 98.480 97.165 0.25 2.0
01/06/09 98.585 97.265 0.25 2.0
01/07/09 98.670 97.340 0.25 2.0
and that is what I try to get as well.
Doing:
attributes(a)[[2]] <- format(as.Date(attributes(a)[[2]]), "%m/%d/%y")
changes structure of a to:
'zoo' series from 01/01/09 to 01/19/09
Data: num [1:13, 1:4] 98.6 98.4 98.5 98.6 98.7 ...
- attr(*, "dimnames")=List of 2
..$ : NULL
..$ : chr [1:4] "ED4 COMDTY" "ED12 COMDTY" "FDTR INDEX" "UKBRBASE INDEX"
Index: chr [1:13] "01/01/09" "01/02/09" "01/05/09" "01/06/09"
"01/07/09" "01/08/09" "01/09/09" "01/12/09" "01/13/09" "01/14/09"
"01/15/09" "01/16/09" "01/19/09"
That is not the same structure, attributes disappeared.
What am I doing wrong?
Thank you in advance for your help.
Regards,
Sergey
On Wed, Jan 21, 2009 at 15:56, Gabor Grothendieck
<ggrothendieck at gmail.com> wrote:
> Please reduce your examples down to small amounts of data and use dput so
> that they are reproducible.
>
> On Wed, Jan 21, 2009 at 9:32 AM, Sergey Goriatchev <sergeyg at gmail.com> wrote:
>> Dear all,
>>
>> I have a zoo object that has following structure:
>>
>>> str(bldata)
>> zoo [1:5219, 1:12] 91.9 91.8 91.7 91.8 91.7 ...
>> - attr(*, "index")=Classes 'dates', 'times' atomic [1:5219] 7305
>> 7306 7307 7308 7309 ...
>> .. ..- attr(*, "format")= chr "m/d/y"
>> .. ..- attr(*, "origin")= Named num [1:3] 1 1 1970
>> .. .. ..- attr(*, "names")= chr [1:3] "month" "day" "year"
>> - attr(*, "dimnames")=List of 2
>> ..$ : NULL
>> ..$ : chr [1:12] "ED4 COMDTY" "ED12 COMDTY" "ER4 COMDTY" "ER12 COMDTY" ...
>>
>> I also have a vector of dates of same length as zoo object (5219):
>>
>>> str(bldates)
>> chr [1:5219] "01/01/90" "01/02/90" "01/03/90" "01/04/90" "01/05/90"
>> "01/08/90" "01/09/90" "01/10/90" "01/11/90" "01/12/90" ...
>>
>> I do the following:
>>
>>> attributes(bldata)[[2]] <- as.Date(bldates, "%m/%d/%y")
>>
>> and get the following:
>>
>>> str(bldata)
>> 'zoo' series from 1990-01-01 to 2009-12-31
>> Data: num [1:5219, 1:12] 91.9 91.8 91.7 91.8 91.7 ...
>> - attr(*, "dimnames")=List of 2
>> ..$ : NULL
>> ..$ : chr [1:12] "ED4 COMDTY" "ED12 COMDTY" "ER4 COMDTY" "ER12 COMDTY" ...
>> Index: Class 'Date' num [1:5219] 7305 7306 7307 7308 7309 ...
>>
>> But what I really want to get is the following:
>>
>>>str(bldata)
>> 'zoo' series from 01/01/90 to 12/31/09
>> Data: num [1:5219, 1:12] 91.9 91.8 91.7 91.8 91.7 ...
>> - attr(*, "dimnames")=List of 2
>> ..$ : NULL
>> ..$ : chr [1:12] "ED4 COMDTY" "ED12 COMDTY" "ER4 COMDTY" "ER12 COMDTY" ...
>> Index: Classes 'dates', 'times' atomic [1:5219] 7305 7306 7307 7308 7309 ...
>> ..- attr(*, "format")= chr "m/d/y"
>> ..- attr(*, "origin")= Named num [1:3] 1 1 1970
>> .. ..- attr(*, "names")= chr [1:3] "month" "day" "year"
>>
>> The array bldata is the same, only the last one is on a machine
>> running RBloomberg, and then I tried to save bldata (and rownames of
>> bldata in bldates) and
>> transfer bldata to the other machine which is not a Bloomberg
>> terminal, and the structure of bldata changes.
>>
>> What should I do in this case to adjust the structure? I guess I have
>> to somehow change the class of Index and set attributes of "Index" and
>> attribute "names" of attribute "origin" of attribute "Index"?
>>
>> Thank you for your help in advance!
>>
>> Regards,
>> Sergey
>>
>> --
>> I'm not young enough to know everything. /Oscar Wilde
>> Experience is one thing you can't get for nothing. /Oscar Wilde
>> When you are finished changing, you're finished. /Benjamin Franklin
>> Tell me and I forget, teach me and I remember, involve me and I learn.
>> /Benjamin Franklin
>> Luck is where preparation meets opportunity. /George Patten
>>
>> ______________________________________________
>> R-help at r-project.org mailing list
>> https://stat.ethz.ch/mailman/listinfo/r-help
>> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
>> and provide commented, minimal, self-contained, reproducible code.
>>
>
--
I'm not young enough to know everything. /Oscar Wilde
Experience is one thing you can't get for nothing. /Oscar Wilde
When you are finished changing, you're finished. /Benjamin Franklin
Tell me and I forget, teach me and I remember, involve me and I learn.
/Benjamin Franklin
Luck is where preparation meets opportunity. /George Patten
More information about the R-help
mailing list