merge, suffixes, index and plot

THIS IS OBSOLETE. PLEASE REFER TO 2019-02-17

1. This is the sample for when the number of entries is 34.
2. Please see "suffixes" parameter. the number of parameters should be equal to the number of xts objects to merged. Not the number of columns.

>bp.day <- apply.daily(bp.bangkok,mean)
> length(bp.day["2019"][,1])
[1] 34

bp.day <- apply.daily(bp.bangkok,mean)
len <- length(bp.day["2019"][,1])
plot(merge(bp.day["2019"],as.xts(as.vector(bp.day[,1]["2018"][1:len]),index(bp.day["2019"])),as.xts(as.vector(bp.day[,2]["2018"][1:len]),index(bp.day["2019"])),suffixes = c("","h2018","l2018")))