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

> ### Name: autoplot.qtsclust
> ### Title: Plot for 'qtsclust' objects
> ### Aliases: autoplot.qtsclust
> 
> ### ** Examples
> 
> ## Don't show: 
> if (requireNamespace("ggplot2", quietly = TRUE)) (if (getRversion() >= "3.4") withAutoprint else force)({ # examplesIf
+ ## End(Don't show)
+ out <- kmeans(vespa64$igp[1:10], n_clusters = 2)
+ ggplot2::autoplot(out)
+ ## Don't show: 
+ }) # examplesIf
> out <- kmeans(vespa64$igp[1:10], n_clusters = 2)
ℹ 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:         7        5

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: 4
   * Size of cluster #1: 6
 - Iteration #2
   * Size of cluster #0: 4
   * Size of cluster #1: 6

Active stopping criteria:
 - Memberships did not change.
Error in `purrr::map()`:
ℹ 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`.
Backtrace:
     ▆
  1. ├─(if (getRversion() >= "3.4") withAutoprint else force)(...)
  2. │ └─base::source(...)
  3. │   ├─base::withVisible(eval(ei, envir))
  4. │   └─base::eval(ei, envir)
  5. │     └─base::eval(ei, envir)
  6. ├─squat::kmeans(vespa64$igp[1:10], n_clusters = 2)
  7. └─squat:::kmeans.qts_sample(vespa64$igp[1:10], n_clusters = 2)
  8.   ├─squat::as_qts_sample(...)
  9.   │ └─squat::is_qts_sample(x)
 10.   │   └─"qts_sample" %in% class(x)
 11.   └─purrr::map(...)
 12.     └─purrr:::map_("list", .x, .f, ..., .progress = .progress)
 13.       ├─purrr:::with_indexed_errors(...)
 14.       │ └─base::withCallingHandlers(...)
 15.       ├─purrr:::call_with_cleanup(...)
 16.       └─squat (local) .f(.x[[i]], ...)
 17.         └─squat::as_qts(...)
 18.           └─cli::cli_abort("The input tibble should have exactly the 5 following columns in that order: {.code time}, {.code w}, {.code x}, {.code y} and {.code z}.")
 19.             └─rlang::abort(...)
Execution halted