There is no facility to pass additional arguments to your function in
Reduce. See ?Reduce
zoo's merge function can merge multiple series. You don't need Reduce.
Any of these three should work:
library(zoo)
dat <- vector("list")
for (i in 1:4) dat[[i]] <- zooreg(rnorm(i*10),
start=as.Date("2000-01-01"), frequency=1)
names(dat) <- letters[1:4]
# 1
z1 <- do.call(merge, c(dat, all = FALSE))
# 2
z2 <- merge(a = dat[[1]], b = dat[[2]], c = dat[[3]], d = dat[[4]], all = FALSE)
# 3
z3 <- Reduce(function(x, y) merge(x, y, all = FALSE), dat)
colnames(z3) <- names(dat)
identical(z1, z2) # TRUE
time(z1) <- unname(time(z1))
identical(z1, z3) # TRUE
On Tue, Apr 13, 2010 at 4:19 AM, Ron_M <ron_michae...@yahoo.com> wrote:
>
> Hi, I have created following "list" object :
>
>> library(zoo)
>> dat <- vector("list")
>> for (i in 1:4) dat[[i]] <- zooreg(rnorm(i*10),
>> start=as.Date("2000-01-01"), frequency=1)
>
>> dat[[1]]
> 2000-01-01 2000-01-02 2000-01-03 2000-01-04 2000-01-05 2000-01-06 2000-01-07
> 2000-01-08 2000-01-09 2000-01-10
> -0.7023352 -0.2063284 -1.0684688 -0.5345360 1.0045435 -0.6528107 1.0922850
> 0.6592155 0.1889817 -0.5154872
>> dat[[2]]
> 2000-01-01 2000-01-02 2000-01-03 2000-01-04 2000-01-05 2000-01-06
> 2000-01-07 2000-01-08 2000-01-09 2000-01-10
> -1.33096001 -0.41484364 0.03850233 -0.78752649 1.50566685 -1.05094523
> 0.58845956 0.28183515 0.90528437 -0.61535069
> 2000-01-11 2000-01-12 2000-01-13 2000-01-14 2000-01-15 2000-01-16
> 2000-01-17 2000-01-18 2000-01-19 2000-01-20
> -0.76326498 -0.38750503 0.59519399 -0.39464736 0.80053668 0.56286659
> 0.03991622 1.20224474 -0.11436020 0.79030262
>> dat[[3]]
> 2000-01-01 2000-01-02 2000-01-03 2000-01-04 2000-01-05
> 2000-01-06 2000-01-07 2000-01-08 2000-01-09
> -0.939523920 0.679475552 -0.248264399 0.658726986 -0.154457503
> -0.327342956 1.358551653 -0.051436045 0.455469878
> 2000-01-10 2000-01-11 2000-01-12 2000-01-13 2000-01-14
> 2000-01-15 2000-01-16 2000-01-17 2000-01-18
> 2.982439031 0.499840045 0.009528193 0.372458627 -0.762186202
> -0.988996299 -0.673831659 -0.443536816 0.413445687
> 2000-01-19 2000-01-20 2000-01-21 2000-01-22 2000-01-23
> 2000-01-24 2000-01-25 2000-01-26 2000-01-27
> -0.069849302 0.520691745 -0.296890679 2.093093754 0.696635791
> -0.286680977 -0.354431757 -0.157794595 -2.247776154
> 2000-01-28 2000-01-29 2000-01-30
> -1.429291735 -0.302251311 0.071380311
>> dat[[4]]
> 2000-01-01 2000-01-02 2000-01-03 2000-01-04 2000-01-05
> 2000-01-06 2000-01-07 2000-01-08 2000-01-09
> 1.229357467 -1.231028063 -0.384540478 1.058490237 -0.275243948
> 0.097183122 -1.768885144 -0.611407839 -3.441311777
> 2000-01-10 2000-01-11 2000-01-12 2000-01-13 2000-01-14
> 2000-01-15 2000-01-16 2000-01-17 2000-01-18
> -0.312644935 0.380036670 0.025232772 -0.090080369 -1.157750720
> 0.859936199 0.590191927 -0.824260485 -1.570709392
> 2000-01-19 2000-01-20 2000-01-21 2000-01-22 2000-01-23
> 2000-01-24 2000-01-25 2000-01-26 2000-01-27
> -1.356200595 -0.163619627 1.680948233 2.045026560 1.756296234
> -1.422084889 -0.075294543 1.986966298 0.171919466
> 2000-01-28 2000-01-29 2000-01-30 2000-01-31 2000-02-01
> 2000-02-02 2000-02-03 2000-02-04 2000-02-05
> 0.474975000 -1.226787467 0.508195208 -1.237140935 0.361799136
> 0.497959878 -0.857453525 2.833531013 0.396793937
> 2000-02-06 2000-02-07 2000-02-08 2000-02-09
> -0.966378375 0.556724596 0.170147308 -0.005016784
>
>
> Now I want to merge all these 4 time series with "all=FALSE". I have tried
> with Reduce() function, However could not get desired result :
>
>> tail(Reduce("merge", dat))
> init x[[i]] x[[i]].1 x[[i]].2
> 2000-02-04 NA NA NA 2.833531013
> 2000-02-05 NA NA NA 0.396793937
> 2000-02-06 NA NA NA -0.966378375
> 2000-02-07 NA NA NA 0.556724596
> 2000-02-08 NA NA NA 0.170147308
> 2000-02-09 NA NA NA -0.005016784
>
>
> If I all additinal argument for merge() function I get error :
>
>> tail(Reduce("merge", all=F, dat))
> Error in Reduce("merge", all = F, dat) : unused argument(s) (all = F)
>
> How to force R to report the data available only for all days?
>
> Thanks,
> --
> View this message in context:
> http://n4.nabble.com/Merging-list-object-tp1838111p1838111.html
> Sent from the R help mailing list archive at Nabble.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.
>
______________________________________________
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.
