Nothing
# some tests to ensure that modifications don't change
# the global behaviour of Time*DataFrame
#=====================
# TimeInstantDataFrame
library( timetools )
tidf <- TimeInstantDataFrame(as.POSIXct(sprintf('2012-01-%02i', 4:8), 'UTC'),
'CET', data.frame(un=1:5, two=6:10))
tidf
timezone(tidf) <- 'UTC'
tidf
tidf[3:4,'two']
when(tidf)
tidf <- TimeInstantDataFrame(as.POSIXct(sprintf('2012-01-%02i', 4:8), 'CET'),
'UTC', data.frame(un=1:5, two=6:10))
tidf
timezone(tidf) <- 'CET'
tidf
tidf[3:4,'two']
when(tidf)
split( tidf, c(rep('C', 3), rep('A', 2)) )
#======================
# TimeIntervalDataFrame
tidf <- TimeIntervalDataFrame(as.POSIXct(sprintf('2012-01-%02i', 4:9), 'UTC'),
tiemzone='CET', data=data.frame(un=1:5, two=6:10))
tidf
timezone(tidf) <- 'UTC'
tidf
tidf[3:4,'two']
when(tidf)
start(tidf)
end(tidf)
tidf <- TimeIntervalDataFrame(as.POSIXct(sprintf('2012-01-%02i', 4:9), 'CET'),
timezone='UTC', data=data.frame(un=1:5, two=6:10))
tidf
timezone(tidf) <- 'CET'
tidf
tidf[3:4,'two']
when(tidf)
start(tidf)
end(tidf)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.