ti1 <- TimeIntervalDataFrame (
c('2010-01-01', '2010-02-01'), c('2010-02-01', '2010-02-02'),
'UTC', data.frame(ex1=1:2) )
ti2 <- TimeIntervalDataFrame (
c('2010-01-01', '2010-02-01', '2010-02-02'), NULL,
'UTC', data.frame(ex1=1:2) )
all.equal (ti1, ti2)
ti3 <- TimeIntervalDataFrame (
c('2010-01-01', '2010-01-02', '2010-01-04'), NULL,
'UTC', data.frame(ex3=c(6, 1.5)))
# weighted mean over a period of 3 days with at least 75% of
# coverage (NA is retunr if not)
ti3
d <- POSIXctp(unit='day')
changeSupport (ti3, 3L*d, 0.75)
ti4 <- TimeIntervalDataFrame (
c('2010-01-01', '2010-01-02', '2010-01-04',
'2010-01-07', '2010-01-09', '2010-01-10'), NULL,
'UTC', data.frame(ex4=c(6, 1.5, 5, 3, NA)))
# weighted mean over a period of 3 days with at least 75% of
# coverage (NA is retunr if not) or 50%
ti4
changeSupport (ti4, 3L*d, 0.75)
changeSupport (ti4, 3L*d, 0.5)
Run the code above in your browser using DataLab