test.glmReserve.DateLabels <- function() {
expos <- (7 + 1:10 * 0.4) * 10
GenIns2 <- GenIns
rownames(GenIns2) <- paste0(2001:2010, "-01-01")
attr(GenIns2, "exposure") <- expos
#checkException(fit5 <- glmReserve(GenIns2))
names(expos) <- rownames(GenIns2)
attr(GenIns2, "exposure") <- expos
(fit6 <- glmReserve(GenIns2))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.