event.dates(x)
x <- fts() x.bool <- x > 10 event.dates(x.bool) ## ignores NA's x.bool[10:20] <- NA event.dates(x.bool)
Run the code above in your browser using DataLab