test_that("'fix1censdate' works", {
expect_equal(
fix1censdate(x = "20110213"),
as.Date("2011-02-13")
)
expect_equal(
fix1censdate(x = "20011231"),
as.Date("2001-12-31")
)
expect_equal(
fix1censdate(x = "20120000"),
as.Date("2012-07-01")
)
expect_equal(
fix1censdate(x = "20120600"),
as.Date("2012-06-15")
)
expect_equal(
fix1censdate(x = "20120000", low.bound = as.Date("2012-01-01")),
as.Date("2012-07-01")
)
expect_equal(
fix1censdate(x = "20120000", low.bound = as.Date("2012-12-31")),
as.Date("2012-12-31")
)
expect_equal(
fix1censdate(x = "20120000", low.bound = as.Date("2012-10-03")),
as.Date("2012-11-16")
)
expect_equal(
fix1censdate(x = "20120500", low.bound = as.Date("2012-01-01")),
as.Date("2012-05-16")
)
expect_equal(
fix1censdate(x = "20120500", low.bound = as.Date("2012-05-31")),
as.Date("2012-05-31")
)
expect_equal(
fix1censdate(x = "20120500", low.bound = as.Date("2010-05-31")),
as.Date("2012-05-31")
)
expect_error(fix1censdate(x = "19890000", ok.year = 1990:2010))
})
test_that("'fix_cens_date' works", {
x <- c("20090000" , "20100800", "20120506")
y <- as.Date(c("2009-07-02" , "2010-08-16", "2012-05-06"))
expect_equal(fix_cens_date(x),y)
L <- as.Date(c("2009-07-01" , "2010-08-10", "2012-05-06"))
y <- as.Date(c("2009-10-01" , "2010-08-20", "2012-05-06"))
expect_equal(fix_cens_date(x, low.bound = L), y)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.