library(utils)
data(co021)
summary(co021)
foo <- co021[,"645232"]
# 645232 1466 1659
bar <- co021
bar$"645232" <- NULL
out <- xdate.floater(bar, foo, min.overlap = 50, series.name = "Undated")
foo <- co021[,"646118"]
# 646118 1176 1400
bar <- co021
bar$"646118" <- NULL
out <- xdate.floater(bar, foo, min.overlap = 100, series.name = "Undated")
# note that this can fail if a long overlap is needed. This produces the
# wrong dates.
out <- xdate.floater(bar, foo, min.overlap = 200, series.name = "Undated")
Run the code above in your browser using DataLab