Running examples in ‘popEpi-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: relpois_ag
> ### Title: Excess hazard Poisson model
> ### Aliases: relpois_ag
> 
> ### ** Examples
> 
> ## use the simulated rectal cancer cohort
> data(sire, package = "popEpi")
> sire$agegr <- cut(sire$dg_age, c(0,45,60,Inf), right=FALSE)
> 
> ## create aggregated example data
> fb <- c(0,3/12,6/12,1,2,3,4,5)
> x <- lexpand(sire, birth = bi_date, entry = dg_date,
+              exit = ex_date, status=status %in% 1:2,
+              breaks = list(fot=fb), 
+              pophaz=popmort, pp = FALSE,
+              aggre = list(agegr, fot))
dropped 16 rows where entry == exit
NOTE: 15 rows in split data had values of 'age' higher than max of pophaz's 'agegroup'; the hazard values at 'agegroup' == 100 were used for these
>              
> ## fit model using aggregated data
> rpm <- relpois_ag(formula = from0to1 ~ fot + agegr,  data = x,
+                   d.exp = d.exp, offset = log(pyrs))
> summary(rpm)

Call:
relpois_ag(formula = from0to1 ~ fot + agegr, data = x, d.exp = d.exp, 
    offset = log(pyrs))

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-5.6136  -1.0168   0.3359   0.9915   2.8973  

Coefficients:
               Estimate Std. Error z value Pr(>|z|)    
(Intercept)    -1.79918    0.13713 -13.121  < 2e-16 ***
fot[0.25, 0.5) -0.44857    0.06971  -6.435 1.24e-10 ***
fot[0.5, 1)    -0.68680    0.06329 -10.851  < 2e-16 ***
fot[1, 2)      -1.04518    0.06158 -16.971  < 2e-16 ***
fot[2, 3)      -1.40386    0.07530 -18.643  < 2e-16 ***
fot[3, 4)      -1.79858    0.09820 -18.315  < 2e-16 ***
fot[4, 5)      -2.02052    0.12095 -16.706  < 2e-16 ***
agegr[45,60)    0.21313    0.14171   1.504    0.133    
agegr[60,Inf)   0.79523    0.13367   5.949 2.70e-09 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for poisson family taken to be 1)

    Null deviance: 1081.009  on 20  degrees of freedom
Residual deviance:   77.446  on 12  degrees of freedom
AIC: 217.08

Number of Fisher Scoring iterations: 5

>  
> ## the usual functions for handling glm models work
> rpm2 <- update(rpm, . ~ fot*agegr)
Error in fot %.:% agegr : could not find function "%.:%"
Calls: update ... check_excess_cases -> RHS2DT -> lapply -> FUN -> eval -> eval
Execution halted