Running ‘testthat.R’ [50s/56s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > # This file is part of the standard setup for testthat.
  > # It is recommended that you do not modify it.
  > #
  > # Where should you do additional test configuration?
  > # Learn more about the roles of various files in:
  > # * https://r-pkgs.org/tests.html
  > # * https://testthat.r-lib.org/reference/test_package.html#special-files
  > 
  > library(testthat)
  > library(squat)
  
  Attaching package: 'squat'
  
  The following objects are masked from 'package:stats':
  
      dist, hclust, kmeans, smooth
  
  The following objects are masked from 'package:base':
  
      append, scale
  
  > 
  > test_check("squat")
  
  Attaching package: 'purrr'
  
  The following object is masked from 'package:testthat':
  
      is_null
  
  i Computing initial centroids using kmeans++ strategy...
  Information about the data set:
   - Number of observations: 10
   - Number of dimensions: 3
   - Number of points: 101
  
  Information about cluster initialization:
   - Number of clusters: 2
   - Initial seeds for cluster centers:         10         7
  
  Information about the methods used within the algorithm:
   - Warping method: affine
   - Center method: mean
   - Dissimilarity method: l2
   - Optimization method: bobyqa
  
  Information about warping parameter bounds:
   - Warping options:    0.1500   0.1500
  
  Information about convergence criteria:
   - Maximum number of iterations: 100
   - Distance relative tolerance: 0.001
  
  Information about parallelization setup:
   - Number of threads: 1
   - Parallel method: 0
  
  Other information:
   - Use fence to robustify: 0
   - Check total dissimilarity: 1
   - Compute overall center: 0
  
  Running k-centroid algorithm:
   - Iteration #1
     * Size of cluster #0: 6
     * Size of cluster #1: 4
   - Iteration #2
     * Size of cluster #0: 6
     * Size of cluster #1: 4
  
  Active stopping criteria:
   - Memberships did not change.
  i Computing initial centroids using kmeans++ strategy...
  Information about the data set:
   - Number of observations: 10
   - Number of dimensions: 3
   - Number of points: 101
  
  Information about cluster initialization:
   - Number of clusters: 2
   - Initial seeds for cluster centers:         10         7
  
  Information about the methods used within the algorithm:
   - Warping method: affine
   - Center method: mean
   - Dissimilarity method: l2
   - Optimization method: bobyqa
  
  Information about warping parameter bounds:
   - Warping options:    0.1500   0.1500
  
  Information about convergence criteria:
   - Maximum number of iterations: 100
   - Distance relative tolerance: 0.001
  
  Information about parallelization setup:
   - Number of threads: 1
   - Parallel method: 0
  
  Other information:
   - Use fence to robustify: 0
   - Check total dissimilarity: 1
   - Compute overall center: 0
  
  Running k-centroid algorithm:
   - Iteration #1
     * Size of cluster #0: 6
     * Size of cluster #1: 4
   - Iteration #2
     * Size of cluster #0: 6
     * Size of cluster #1: 4
  
  Active stopping criteria:
   - Memberships did not change.
  i Computing initial centroids using kmeans++ strategy...
  Information about the data set:
   - Number of observations: 10
   - Number of dimensions: 3
   - Number of points: 101
  
  Information about cluster initialization:
   - Number of clusters: 2
   - Initial seeds for cluster centers:         10         7
  
  Information about the methods used within the algorithm:
   - Warping method: affine
   - Center method: mean
   - Dissimilarity method: l2
   - Optimization method: bobyqa
  
  Information about warping parameter bounds:
   - Warping options:    0.1500   0.1500
  
  Information about convergence criteria:
   - Maximum number of iterations: 100
   - Distance relative tolerance: 0.001
  
  Information about parallelization setup:
   - Number of threads: 1
   - Parallel method: 0
  
  Other information:
   - Use fence to robustify: 0
   - Check total dissimilarity: 1
   - Compute overall center: 0
  
  Running k-centroid algorithm:
   - Iteration #1
     * Size of cluster #0: 6
     * Size of cluster #1: 4
   - Iteration #2
     * Size of cluster #0: 6
     * Size of cluster #1: 4
  
  Active stopping criteria:
   - Memberships did not change.
  The `original_space` boolean argument is not specified. Defaulting to TRUE.
  The `plane` length-2 integer vector argument is not specified. Defaulting to 1:2.
  The `original_space` boolean argument is not specified. Defaulting to TRUE.
  [ FAIL 5 | WARN 0 | SKIP 29 | PASS 11 ]
  
  ══ Skipped tests (29) ══════════════════════════════════════════════════════════
  • On CRAN (29): 'test-DTW.R:2:3', 'test-interface.R:2:3',
    'test-interface.R:7:3', 'test-interface.R:12:3', 'test-interface.R:24:3',
    'test-interface.R:31:3', 'test-interface.R:36:3', 'test-interface.R:41:3',
    'test-interface.R:46:3', 'test-qts-class.R:15:3', 'test-qts-class.R:23:3',
    'test-qts-class.R:31:3', 'test-qts-class.R:49:3', 'test-qts-dist.R:5:3',
    'test-qts-dist.R:10:3', 'test-qts-dist.R:15:3', 'test-qts-prcomp.R:3:3',
    'test-qts-prcomp.R:21:3', 'test-qts-sample-class.R:7:3',
    'test-qts-sample-class.R:17:3', 'test-qts-sample-class.R:30:3',
    'test-qts-sample-class.R:67:3', 'test-qts-sample-class.R:71:3',
    'test-qts-sample-class.R:75:3', 'test-qts-sample-class.R:91:3',
    'test-qts-transformations.R:2:3', 'test-qts-transformations.R:6:3',
    'test-qts-transformations.R:11:3', 'test-qts-transformations.R:16:3'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error ('test-qts-dbscan.R:8:3'): Function dbscan.qts_sample() works ─────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(1:l$N, function(.id) {
      exp(as_qts(tibble::tibble(time = out$grids[.id, ], w = 0, 
          x = out$aligned_curves[.id, 1, ], y = out$aligned_curves[.id, 
              2, ], z = out$aligned_curves[.id, 3, ])))
  })`: i In index: 1.
  Caused by error in `as_qts()`:
  ! The input tibble should have exactly the 5 following columns in that order: `time`, `w`, `x`, `y` and `z`.
  ── Error ('test-qts-hclust.R:7:3'): Function hclust.qts_sample() works ─────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(1:l$N, function(.id) {
      .label <- out$memberships[.id]
      exp(as_qts(tibble::tibble(time = out$grids[.label, ], w = 0, 
          x = out$aligned_curves[.id, 1, ], y = out$aligned_curves[.id, 
              2, ], z = out$aligned_curves[.id, 3, ])))
  })`: i In index: 1.
  Caused by error in `as_qts()`:
  ! The input tibble should have exactly the 5 following columns in that order: `time`, `w`, `x`, `y` and `z`.
  ── Error ('test-qts-kmeans.R:7:3'): Function kmeans.qts_sample() works ─────────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(1:l$N, function(.id) {
      .label <- out$memberships[.id]
      exp(as_qts(tibble::tibble(time = out$grids[.label, ], w = 0, 
          x = out$aligned_curves[.id, 1, ], y = out$aligned_curves[.id, 
              2, ], z = out$aligned_curves[.id, 3, ])))
  })`: i In index: 1.
  Caused by error in `as_qts()`:
  ! The input tibble should have exactly the 5 following columns in that order: `time`, `w`, `x`, `y` and `z`.
  ── Error ('test-qts-kmeans.R:14:3'): Visualization code for k-means work ───────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(1:l$N, function(.id) {
      .label <- out$memberships[.id]
      exp(as_qts(tibble::tibble(time = out$grids[.label, ], w = 0, 
          x = out$aligned_curves[.id, 1, ], y = out$aligned_curves[.id, 
              2, ], z = out$aligned_curves[.id, 3, ])))
  })`: i In index: 1.
  Caused by error in `as_qts()`:
  ! The input tibble should have exactly the 5 following columns in that order: `time`, `w`, `x`, `y` and `z`.
  ── Error ('test-qts-kmeans.R:25:3'): Visualization functions for PCA work ──────
  <purrr_error_indexed/rlang_error/error/condition>
  Error in `purrr::map(1:l$N, function(.id) {
      .label <- out$memberships[.id]
      exp(as_qts(tibble::tibble(time = out$grids[.label, ], w = 0, 
          x = out$aligned_curves[.id, 1, ], y = out$aligned_curves[.id, 
              2, ], z = out$aligned_curves[.id, 3, ])))
  })`: i In index: 1.
  Caused by error in `as_qts()`:
  ! The input tibble should have exactly the 5 following columns in that order: `time`, `w`, `x`, `y` and `z`.
  
  [ FAIL 5 | WARN 0 | SKIP 29 | PASS 11 ]
  Deleting unused snapshots:
  • qts-class/qts-plot-with-change-points.svg
  • qts-kmeans/k-means-plot.svg
  • qts-prcomp/colored-score-plot.svg
  • qts-prcomp/score-plot.svg
  • qts-prcomp/screeplot.svg
  • qts-sample-class/qts-sample-plot-with-highlighted-observations.svg
  • qts-sample-class/qts-sample-plot-with-memberships.svg
  Error: Test failures
  Execution halted