Here is a solution that only uses ts (no zoo) starting from
the dates:
fmt <- "%d-%m-%Y"
X <- as.Date(c("01-03-1993", "01-05-1997"), fmt)
Y <- as.Date(c("01-02-1995", "01-08-1999"), fmt)
ym <- function(x) with(as.POSIXlt(x), c(1900 + year, mon+1))
Xt <- ts(1, start = ym(X[1]), end = ym(X[2]), fr
Make a series of ones from each start/end pair and merge them all
with A using fill = 0. We have returned a ts series since that seems
to be what you are using but we could have left off the as.ts to
return a zoo series in the end:
library(zoo)
X <- as.Date(c("01-03-1993", "01-05-1997"), "%d-%m-
I have two date objects
X <- c("01-03-1993", "01-05-1997") #Mar 1993 and May 1997
Y <- c("01-02-1995", "01-08-1999") #Feb 1995 and Aug 1999
and a time series object
A <- ts(rnorm(120), freq=12, start=c(1992,8)) #Aug 1992 to Aug 2002
I want to create a binary (0-1) vector B that is of length 1
3 matches
Mail list logo
