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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: predict.tropsvm
> ### Title: Predict Method for Tropical Support Vector Machines
> ### Aliases: predict.tropsvm
> 
> ### ** Examples
> 
> 
> # data generation
> library(Rfast)
Loading required package: Rcpp
Loading required package: zigg
Loading required package: RcppParallel

Attaching package: ‘RcppParallel’

The following object is masked from ‘package:Rcpp’:

    LdFlags


Rfast: 2.1.5.1
 ___ __ __ __ __    __ __ __ __ __ _             _               __ __ __ __ __     __ __ __ __ __ __   
|  __ __ __ __  |  |  __ __ __ __ _/            / \             |  __ __ __ __ /   /__ __ _   _ __ __\  
| |           | |  | |                         / _ \            | |                        / /          
| |           | |  | |                        / / \ \           | |                       / /          
| |           | |  | |                       / /   \ \          | |                      / /          
| |__ __ __ __| |  | |__ __ __ __           / /     \ \         | |__ __ __ __ _        / /__/\          
|    __ __ __ __|  |  __ __ __ __|         / /__ _ __\ \        |_ __ __ __ _   |      / ___  /           
|   \              | |                    / _ _ _ _ _ _ \                     | |      \/  / /       
| |\ \             | |                   / /           \ \                    | |         / /          
| | \ \            | |                  / /             \ \                   | |        / /          
| |  \ \           | |                 / /               \ \                  | |       / /          
| |   \ \__ __ _   | |                / /                 \ \     _ __ __ __ _| |      / /          
|_|    \__ __ __\  |_|               /_/                   \_\   /_ __ __ __ ___|      \/             team
> e <- 100
> n <- 10
> N <- 10
> s <- 5
> x <- rbind(
+   rmvnorm(n, mu = c(5, -5, rep(0, e - 2)), sigma = diag(s, e)),
+   rmvnorm(n, mu = c(-5, 5, rep(0, e - 2)), sigma = diag(s, e))
+ )
> y <- as.factor(c(rep(1, n), rep(2, n)))
> newx <- rbind(
+   rmvnorm(N, mu = c(5, -5, rep(0, e - 2)), sigma = diag(s, e)),
+   rmvnorm(N, mu = c(-5, 5, rep(0, e - 2)), sigma = diag(s, e))
+ )
> newy <- as.factor(rep(c(1, 2), each = N))
> 
> # train the tropical svm
> tropsvm_fit <- tropsvm(x, y, auto.assignment = TRUE, ind = 1)
> 
> # test with new data
> pred <- predict(tropsvm_fit, newx)
> 
> # check with accuracy
> table(pred, newy)
    newy
pred  1  2
   1 10 10
> 
> # compute testing accuracy
> sum(pred == newy) / length(newy)
Error in Ops.factor(pred, newy) : level sets of factors are different
Execution halted