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

> ### Name: computeShares
> ### Title: Compute Weighted Shares By Group
> ### Aliases: computeShares
> 
> ### ** Examples
> 
> # TODO: add new weight columns to BTS demo
> # load library and dataset
> library(panelaggregation)
> data(btsdemo)
> head(btsdemo)
   uid year period weight question_1 question_2 question_3 question_4
1:   2 1997      3      1          2          2          2          1
2:   2 1997      1      1          1          2          3          1
3:   2 1995      4      1          2          1          3          1
4:   2 1998      4      1          3          2          3          3
5:   2 2001      3      1          1          3          2          2
6:   2 1999      4      1          2          3          1          2
   question_5 group altGroup sClass date_qtrly
1:          2     A        a      S 1997-07-01
2:          2     A        a      S 1997-01-01
3:          3     A        a      S 1995-10-01
4:          3     A        a      S 1998-10-01
5:          3     A        a      S 2001-07-01
6:          1     A        a      S 1999-10-01
> # adapt the levels to positive, equal and negative
> # in order to suit the naming defaults. other levels work too, 
> # but you'd need to specify multipliers in computeBalance then
> levels(btsdemo$question_1) <- c("pos","eq","neg")
> 
> # compute the weighted shares and display store in wide format 
> # to get a basis for further steps
> level1 <- computeShares(btsdemo,"question_1","weight", 
+                         by = c("date_qtrly","group", "altGroup", "sClass"))
OMP: Warning #96: Cannot form a team with 13 threads, using 2 instead.
OMP: Hint Consider unsetting KMP_DEVICE_THREAD_LIMIT (KMP_ALL_THREADS), KMP_TEAMS_THREAD_LIMIT, and OMP_THREAD_LIMIT (if any are set).
Error in `[.data.table`(data_table, doUniqueCJ(data_table, c(by, variable)),  : 
  SETLENGTH() cannot be applied to an ALTVEC object.
Calls: computeShares -> [ -> [.data.table
Execution halted