Running ‘tinytest.R’ [2s/3s]
Running the tests in ‘tests/tinytest.R’ failed.
Complete output:
  > if (requireNamespace("tinytest", quietly = TRUE))
  +     tinytest.results <- tinytest::test_package("PMwR",
  +                                                color = interactive(),
  +                                                verbose = 1)
  
  test_.pl_stats.R..............   11 tests OK  45ms
  
  test_NAVseries.R..............   20 tests OK  22ms
  
  test_NAVseries.window.R.......    2 tests OK  2ms
  
  test_NAVseries_summary.R......    5 tests OK  19ms
  
  test_PMwR.R...................    0 tests     1ms
  
  test_as.journal.R.............    3 tests OK  3ms
  'initial.position' specified, but no 'prices0'
  
  test_btest.R..................   52 tests OK  0.1s
  
  test_btest_NA.R...............    5 tests OK  6ms
  
  test_btest_b.R................    3 tests OK  4ms
  
  test_btest_do-rebalance.R.....    2 tests OK  3ms
  'do.signal' is FALSE: strategy will never trade
  'initial.position' specified, but no 'prices0'
  'do.signal' is FALSE: strategy will never trade
  'initial.position' specified, but no 'prices0'
  'do.signal' is FALSE: strategy will never trade
  
  test_btest_initial.position.R.    5 tests OK  8ms
  
  test_btest_journal.R..........    6 tests OK  12ms
  
  test_btest_nullsignal.R.......    2 tests OK  7ms
  
  test_btest_position.R.........   40 tests OK  69ms
  
  test_btest_prices.R...........    6 tests OK  15ms
  
  test_btest_rc.R...............    1 tests OK  3ms
  
  test_btest_replications.R.....    1 tests OK  2ms
  
  test_btest_tc.R...............    2 tests OK  3ms
  
  test_div_adjust.R.............   29 tests OK  15ms
  
  test_internal.R...............    0 tests     1ms
  
  test_is_valid_ISIN.R..........    8 tests OK  5ms
  
  test_is_valid_SEDOL.R.........    2 tests OK  4ms
  
  test_journal.R................   32 tests OK  40ms
  
  test_journal_all.equal.R......    3 tests OK  8ms
  
  test_journal_subset.R.........   12 tests OK  7ms
  
  test_journal_summary.R........    1 tests OK  1ms
  
  test_pl.R.....................   65 tests OK  80ms
  
  test_pl_along.timestamp.R.....    2 tests OK  2ms
  
  test_pl_empty.R...............    1 tests OK  1ms
  For A, B: average sell includes 'vprice'.
  For C: average buy includes 'vprice'.
  
  test_pl_print.R...............    1 tests OK  4ms
  
  test_pl_volume.R..............    6 tests OK  6ms
  
  test_pl_vprice.R..............   42 tests OK  19ms
  
  test_position.R...............   16 tests OK  9ms
  
  test_position_00.R............   12 tests OK  5ms
  
  test_position_account.R.......    0 tests     1ms
  
  test_position_data_frame.R....    0 tests     1ms
  
  test_position_named.R.........   49 tests OK  16ms
  
  test_position_ops.R...........   12 tests OK  6ms
  
  test_pricetable.R.............   22 tests OK  9ms
  
  test_quote32.R................   10 tests OK  8ms
  
  test_rc.R.....................   20 tests OK  17ms
  
  test_rebalance.R..............   23 tests OK  17ms
  
  test_replace_weight.R.........    3 tests OK  2ms
  
  test_returns.R................   44 tests OK  80ms
  
  test_returns_NA.R............. 1922 tests 6 fails  1.2s
  
  test_returns_dataframe.R......    7 tests OK  11ms
  
  test_returns_lag.R............    7 tests OK  3ms
  
  test_returns_p_returns_monthly.R    6 tests OK  5ms
  
  test_returns_period.R.........   13 tests OK  13ms
  
  test_returns_portfolio.R......   25 tests OK  6ms
  
  test_returns_rebalance.R......   51 tests OK  26ms
  
  test_returns_ym_yq.R..........    6 tests OK  16ms
  
  test_scale1.R.................   21 tests OK  9ms
  
  test_split_adjust.R...........   16 tests OK  4ms
  
  test_split_trades.R...........   11 tests OK  5ms
  
  test_streaks.R................    0 tests     6ms
  
  test_unit_prices.R............   25 tests OK  23ms
  
  test_valuation.R..............   13 tests OK  6ms
  ----- FAILED[data]: test_returns_NA.R<155--156>
   call| expect_equivalent(x[length(x)]/x[match("2019-12-31", t)] - 1, 
   call| -->    c(ans))
   diff| Expected '0.153846153846154', got 'NA'
  ----- FAILED[data]: test_returns_NA.R<161--162>
   call| expect_equivalent(x[length(x)]/x[match("2019-12-31", t)] - 1, 
   call| -->    c(ans))
   diff| Expected '0.153846153846154', got 'NA'
  ----- FAILED[data]: test_returns_NA.R<171--172>
   call| expect_equivalent(x[length(x) - 1]/x[match("2019-12-31", t)] - 
   call| -->    1, c(ans))
   diff| Expected '0.146153846153846', got 'NA'
  ----- FAILED[data]: test_returns_NA.R<176--177>
   call| expect_equivalent(x[length(x) - 1]/x[match("2019-12-30", t)] - 
   call| -->    1, c(ans))
   diff| Expected '0.146153846153846', got 'NA'
  ----- FAILED[data]: test_returns_NA.R<178--179>
   call| expect_equal(c(attr(ans, "t")), as.Date(c("2019-12-30", "2020-01-19")))
   diff| Mean relative difference: 5.476451e-05
  ----- FAILED[data]: test_returns_NA.R<192--193>
   call| expect_equivalent(c(149, 148)/x[match("2019-12-31", t), ] - 1, 
   call| -->    c(ans))
   diff| 'is.NA' value mismatch: 2 in current 0 in target
  Error: 6 out of 2704 tests failed
  In addition: Warning messages:
  1: In options(scipen = 1e+08) : invalid 'scipen' 100000000, used 9999
  2: In pReturns(x, t, period, complete.first, pad = pad, na.rm = na.rm) :
    'ytm' is not yet documented/tested
  3: In pReturns(x, t, period, complete.first, pad = pad, na.rm = na.rm) :
    max. timestamp (2020) does not match current year
  4: In returns.default(x = prices, t = t, weights = w, rebalance.when = as.Date("2024-01-09")) :
    'rebalance.when' does not match timestamp
  5: In returns.default(x = prices, t = t, weights = w, rebalance.when = as.Date("2024-01-09"),  :
    'rebalance.when' does not match timestamp
  6: In returns.default(x = prices, t = t, weights = w, rebalance.when = as.Date("2024-01-09"),  :
    'rebalance.when' does not match timestamp
  7: In pReturns(x, t, period, complete.first, pad = pad, na.rm = na.rm) :
    max. timestamp (2022) does not match current year
  Execution halted