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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted
Running examples in ‘popEpi-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted
Running examples in ‘popEpi-Ex.R’ failed
The error most likely occurred in:

> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted
Running examples in ‘popEpi-Ex.R’ failed
The error most likely occurred in:

> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted
Running examples in 'popEpi-Ex.R' failed
The error most likely occurred in:

> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted
Running examples in 'popEpi-Ex.R' failed
The error most likely occurred in:

> ### Name: aggre
> ### Title: Aggregation of split 'Lexis' data
> ### Aliases: aggre
> 
> ### ** Examples
> 
> 
> ## form a Lexis object
> library(Epi)
> data(sibr)
> x <- sibr[1:10,]
> x[1:5,]$sex <- 0 ## pretend some are male
> x <- Lexis(data = x,
+            entry = list(AGE = dg_age, CAL = get.yrs(dg_date)),
+            exit = list(CAL = get.yrs(ex_date)),
+            entry.status=0, exit.status = status)
> x <- splitMulti(x, breaks = list(CAL = seq(1993, 2013, 5), 
+                                  AGE = seq(0, 100, 50)))
> 
> ## these produce the same results (with differing ways of determining aggre)
> a1 <- aggre(x, by = list(gender = factor(sex, 0:1, c("m", "f")), 
+              agegroup = AGE, period = CAL))
> 
> a2 <- aggre(x, by = c("sex", "AGE", "CAL"))
> 
> a3 <- aggre(x, by = list(sex, agegroup = AGE, CAL))
> 
> ## returning also empty levels
> a4 <- aggre(x, by = c("sex", "AGE", "CAL"), type = "full")
Warning in !duplicated(u) & (match(u, v, 0L) > 0L) :
  longer object length is not a multiple of shorter object length
Error in breaks[whScaleUsed] : invalid subscript type 'list'
Calls: aggre -> lapply
Execution halted