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

> ### Name: topWords
> ### Title: Extract the most representative words from topics
> ### Aliases: topWords plot_topWords
> 
> ### ** Examples
> 
> model <- LDA(ECB_press_conferences_tokens)
> model <- fit(model, 10)
0%   10   20   30   40   50   60   70   80   90   100%
[----|----|----|----|----|----|----|----|----|----|
**************************************************|
> topWords(model)
     topic              word value[frequency] overall
    <fctr>            <char>            <int>   <num>
 1: topic1             price             2098    2155
 2: topic1              risk             1290    1374
 3: topic1       development             1196    1583
 4: topic1         inflation              925    1737
 5: topic1   price_stability              873    1047
 6: topic1          increase              625     674
 7: topic1           outlook              625     868
 8: topic1         euro_area              566    3169
 9: topic1          pressure              546     684
10: topic1               oil              518     542
11: topic2          monetary             1262    1569
12: topic2 governing_council              921    1514
13: topic2               ecb              796     975
14: topic2     interest_rate              556     804
15: topic2           meeting              532     550
16: topic2   monetary_policy              448    1093
17: topic2         inflation              443    1737
18: topic2           outcome              403     418
19: topic2             money              397     415
20: topic2         president              358     358
21: topic3            fiscal              952     960
22: topic3           country              748     753
23: topic3            policy              716     813
24: topic3         euro_area              712    3169
25: topic3            growth              582    3424
26: topic3            reform              573     647
27: topic3        structural              541     594
28: topic3            market              442    1296
29: topic3           measure              340     861
30: topic3          european              328     336
31: topic4         euro_area             1370    3169
32: topic4            growth             1102    3424
33: topic4          economic              754    2018
34: topic4              real              698     726
35: topic4           quarter              692     903
36: topic4        projection              550     555
37: topic4               gdp              513     523
38: topic4           economy              413     830
39: topic4             staff              387     419
40: topic4          recovery              374     614
41: topic5            growth             1171    3424
42: topic5              rate              977    1355
43: topic5            annual              880    1268
44: topic5              loan              825     832
45: topic5         financial              797    1204
46: topic5            credit              550     705
47: topic5         euro_area              507    3169
48: topic5            sector              484     735
49: topic5              bank              481     722
50: topic5         household              412     420
     topic              word value[frequency] overall
> topWords(model, output = "matrix")
      topic1            topic2              topic3       topic4      
 [1,] "price"           "monetary"          "fiscal"     "euro_area" 
 [2,] "risk"            "governing_council" "country"    "growth"    
 [3,] "development"     "ecb"               "policy"     "economic"  
 [4,] "inflation"       "interest_rate"     "euro_area"  "real"      
 [5,] "price_stability" "meeting"           "growth"     "quarter"   
 [6,] "increase"        "monetary_policy"   "reform"     "projection"
 [7,] "outlook"         "inflation"         "structural" "gdp"       
 [8,] "euro_area"       "outcome"           "market"     "economy"   
 [9,] "pressure"        "money"             "measure"    "staff"     
[10,] "oil"             "president"         "european"   "recovery"  
      topic5     
 [1,] "growth"   
 [2,] "rate"     
 [3,] "annual"   
 [4,] "loan"     
 [5,] "financial"
 [6,] "credit"   
 [7,] "euro_area"
 [8,] "sector"   
 [9,] "bank"     
[10,] "household"
> topWords(model, method = "FREX")
Error in `[.data.table`(phiStats, , `:=`("exclusivity", value/sum(value)),  : 
  attempt access index 4/4 in VECTOR_ELT
Calls: topWords -> topWords_dt -> [ -> [.data.table
Execution halted