On Fri, Oct 15, 2010 at 2:20 PM, Megh Dal <megh700...@yahoo.com> wrote:
> Dear all, I have following 2 zoo objects. However when I try to merge those 2
> objects into one, nothing is coming as intended. Please see below the objects
> as well as the merged object:
>
>
>> dat11
> V2 V3 V4 V5
> 2010-10-15 13:43:54 73.8 73.8 73.8 73.8
> 2010-10-15 13:44:15 73.8 73.8 73.8 73.8
> 2010-10-15 13:45:51 73.8 73.8 73.8 73.8
> 2010-10-15 13:46:21 73.8 73.8 73.8 73.8
> 2010-10-15 13:47:27 73.8 73.8 73.8 73.8
> 2010-10-15 13:47:54 73.8 73.8 73.8 73.8
> 2010-10-15 13:49:51 73.7 73.7 73.7 73.7
>> dat22
> V2 V3 V4 V5
> 2010-10-15 12:09:12 74.0 74.0 74.0 74.0
> 2010-10-15 12:09:33 73.9 73.9 73.9 73.9
> 2010-10-15 12:20:36 74.0 74.0 74.0 74.0
> 2010-10-15 12:30:36 74.0 74.0 74.0 74.0
> 2010-10-15 12:41:03 73.7 73.7 73.7 73.7
>> merge(dat11, dat22)
> V2.dat11 V3.dat11 V4.dat11 V5.dat11 V2.dat22 V3.dat22
> V4.dat22 V5.dat22
> 2010-10-15 12:09:12 NA NA NA NA NA NA
> NA NA
> 2010-10-15 12:09:33 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:43:54 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:44:15 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:45:51 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:46:21 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:47:27 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:47:54 NA NA NA NA NA NA
> NA NA
> 2010-10-15 13:49:51 NA NA NA NA NA NA
> NA NA
> Warning messages:
> 1: In MATCH(x, x) == seq_len(length(x)) :
> longer object length is not a multiple of shorter object length
> 2: In MATCH(x, x) == seq_len(length(x)) :
> longer object length is not a multiple of shorter object length
>
> If somebody points me whether I went wrong, it would be really great.
>
If I try it then it works properly so there is likely something wrong
with your dat11 and dat22 objects. If you provide the problem
reproducibly one might be able to say more.
> Lines1 <- "Date Time V2 V3 V4 V5
+ 2010-10-15 13:43:54 73.8 73.8 73.8 73.8
+ 2010-10-15 13:44:15 73.8 73.8 73.8 73.8
+ 2010-10-15 13:45:51 73.8 73.8 73.8 73.8
+ 2010-10-15 13:46:21 73.8 73.8 73.8 73.8
+ 2010-10-15 13:47:27 73.8 73.8 73.8 73.8
+ 2010-10-15 13:47:54 73.8 73.8 73.8 73.8
+ 2010-10-15 13:49:51 73.7 73.7 73.7 73.7"
>
> Lines2 <- "Date Time V2 V3 V4 V5
+ 2010-10-15 12:09:12 74.0 74.0 74.0 74.0
+ 2010-10-15 12:09:33 73.9 73.9 73.9 73.9
+ 2010-10-15 12:20:36 74.0 74.0 74.0 74.0
+ 2010-10-15 12:30:36 74.0 74.0 74.0 74.0
+ 2010-10-15 12:41:03 73.7 73.7 73.7 73.7"
>
> library(zoo)
> dat1 <- read.zoo(textConnection(Lines1), header = TRUE,
+ index = list(1, 2), FUN = function(d, t) as.POSIXct(paste(d, t)))
Warning messages:
1: closing unused connection 8 (Lines2)
2: closing unused connection 7 (Lines1)
3: closing unused connection 5 (Lines2)
4: closing unused connection 4 (Lines1)
5: closing unused connection 3 (Lines2)
> dat2 <- read.zoo(textConnection(Lines2), header = TRUE,
+ index = list(1, 2), FUN = function(d, t) as.POSIXct(paste(d, t)))
> merge(dat1, dat2)
V2.dat1 V3.dat1 V4.dat1 V5.dat1 V2.dat2 V3.dat2
V4.dat2 V5.dat2
2010-10-15 12:09:12 NA NA NA NA 74.0 74.0
74.0 74.0
2010-10-15 12:09:33 NA NA NA NA 73.9 73.9
73.9 73.9
2010-10-15 12:20:36 NA NA NA NA 74.0 74.0
74.0 74.0
2010-10-15 12:30:36 NA NA NA NA 74.0 74.0
74.0 74.0
2010-10-15 12:41:03 NA NA NA NA 73.7 73.7
73.7 73.7
2010-10-15 13:43:54 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:44:15 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:45:51 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:46:21 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:47:27 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:47:54 73.8 73.8 73.8 73.8 NA NA
NA NA
2010-10-15 13:49:51 73.7 73.7 73.7 73.7 NA NA
NA NA
--
Statistics & Software Consulting
GKX Group, GKX Associates Inc.
tel: 1-877-GKX-GROUP
email: ggrothendieck at gmail.com
______________________________________________
R-help@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.
