Running 'testthat.R' [22s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > 
  > library("testthat")
  > library("sentometrics")
  Loading required package: data.table
  > 
  > test_check("sentometrics")
  iteration: 1 from 6
  alphas run: 0.2, 0.7
  iteration: 2 from 6
  alphas run: 0.2, 0.7
  iteration: 3 from 6
  alphas run: 0.2, 0.7
  iteration: 4 from 6
  alphas run: 0.2, 0.7
  iteration: 5 from 6
  alphas run: 0.2, 0.7
  iteration: 6 from 6
  alphas run: 0.2, 0.7
  This sentomeasures object contains 24 textual sentiment time series with 7232 observations each (daily).
  
  Following features are present: wsj wapo economy noneconomy 
  Following lexicons are used to calculate sentiment: HENRY_en LM_en 
  Following scheme is applied for aggregation within documents: counts 
  Following scheme is applied for aggregation across documents: proportional 
  Following schemes are applied for aggregation across time: linear exponential_0.1 exponential_0.6 
  
  Aggregate statistics: 
      mean       sd      max      min meanCorr 
  -0.02229  0.36211  3.52144 -3.95278  0.11256 
  A sentomeasures object (24 textual sentiment time series, 7232 observations).alphas run: 0.2, 0.7
  alphas run: 0.2, 0.7
  alphas run: 0.2, 0.7
  -- 1. Error: (unknown) (@test_model_specification.R#44)  -----------------------
  Function found when exporting methods from the namespace 'dimRed' which is not S4 generic: 'nrow'
  1: sento_model(sentomeasures, y, x = x, ctr = ctrM4) at testthat/test_model_specification.R:44
  2: run_sento_model(sentomeasures, y = y, x = x, h = h, family = family, intercept = intercept, 
         alphas = alphas, lambdas = lambdas, type = type, trainWindow = trainWindow, testWindow = testWindow, 
         oos = oos, do.progress = do.progress, do.difference = do.difference, do.shrinkage.x = do.shrinkage.x, 
         do.iter = do.iter)
  3: caret::trainControl
  4: getExportedValue(pkg, name)
  5: asNamespace(ns)
  6: getNamespace(ns)
  7: loadNamespace(name)
  8: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  9: asNamespace(ns)
  10: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  11: namespaceImportFrom(ns, loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]]), 
         i[[2L]], from = package)
  12: asNamespace(ns)
  13: loadNamespace(j <- i[[1L]], c(lib.loc, .libPaths()), versionCheck = vI[[j]])
  14: stop(sprintf(msg, sQuote(package), paste(sQuote(bad), collapse = ", ")), domain = NA, 
         call. = FALSE)
  
  == testthat results  ===========================================================
  OK: 119 SKIPPED: 0 FAILED: 1
  1. Error: (unknown) (@test_model_specification.R#44) 
  
  Error: testthat unit tests failed
  Execution halted