# timeBasedSeq test
# 1999 to 2008 by year, Date
test.tbs_1999_to_2008_by_year_Date <- function() {
tbs <- timeBasedSeq('1999/2008')
bench <- seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='year')
checkIdentical(tbs, bench)
}
# 1999 to 2008 by year, retclass='Date'
test.tbs_1999_to_2008_by_year_retclassDate <- function() {
tbs <- timeBasedSeq('1999/2008', retclass='Date')
bench <- seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='year')
checkIdentical(tbs, bench)
}
# 1999 to 2008 by year, retclass="POSIXct"
test.tbs_1999_to_2008_by_year <- function() {
tbs <- timeBasedSeq('1999/2008',retclass='POSIXct')
bench <- seq(as.POSIXct("1999-01-01"),as.POSIXct("2008-01-01"),by='year')
checkIdentical(tbs, bench)
}
# MONTHLY sequences
# defaults to yearmon from the zoo package
test.tbs_199901_to_200801_by_month <- function() {
tbs <- timeBasedSeq('199901/200801')
bench <- as.yearmon(seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='month'))
checkIdentical(tbs, bench)
}
test.tbs_199901_to_2008_by_month <- function() {
tbs <- timeBasedSeq('199901/2008')
bench <- as.yearmon(seq(as.Date("1999-01-01"),as.Date("2008-12-01"),by='month'))
checkIdentical(tbs, bench)
}
test.tbs_1999_to_200801_by_month <- function() {
tbs <- timeBasedSeq('1999/200801')
bench <- as.yearmon(seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='month'))
checkIdentical(tbs, bench)
}
# retclass=Date
test.tbs_199901_to_200801_by_month_Date <- function() {
tbs <- timeBasedSeq('199901/200801', retclass='Date')
bench <- seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='month')
checkIdentical(tbs, bench)
}
test.tbs_199901_to_2008_by_month_Date <- function() {
tbs <- timeBasedSeq('199901/2008', retclass='Date')
bench <- seq(as.Date("1999-01-01"),as.Date("2008-12-01"),by='month')
checkIdentical(tbs, bench)
}
test.tbs_1999_to_200801_by_month_Date <- function() {
tbs <- timeBasedSeq('1999/200801', retclass='Date')
bench <- as.Date(seq(as.Date("1999-01-01"),as.Date("2008-01-01"),by='month'))
checkIdentical(tbs, bench)
}
# retclass=POSIXct
test.tbs_199901_to_200801_by_month_POSIXct <- function() {
tbs <- timeBasedSeq('199901/200801', retclass='POSIXct')
bench <- seq(as.POSIXct("1999-01-01"),as.POSIXct("2008-01-01"),by='month')
checkIdentical(tbs, bench)
}
test.tbs_199901_to_2008_by_month_POSIXct <- function() {
tbs <- timeBasedSeq('199901/2008', retclass='POSIXct')
bench <- as.POSIXct(seq(as.POSIXct("1999-01-01"),as.POSIXct("2008-12-01"),by='month'),tzone='GMT')
checkIdentical(tbs, bench)
}
test.tbs_1999_to_200801_by_month_POSIXct <- function() {
tbs <- timeBasedSeq('1999/200801', retclass='POSIXct')
bench <- seq(as.POSIXct("1999-01-01"),as.POSIXct("2008-01-01"),by='month')
checkIdentical(tbs, bench)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.