Running examples in 'abcrlda-Ex.R' failed
The error most likely occurred in:

> ### Name: grid_search
> ### Title: Grid Search
> ### Aliases: grid_search
> 
> ### ** Examples
> 
> data(iris)
> train_data <- iris[which(iris[, ncol(iris)] == "virginica" |
+                          iris[, ncol(iris)] == "versicolor"), 1:4]
> train_label <- factor(iris[which(iris[, ncol(iris)] == "virginica" |
+                                  iris[, ncol(iris)] == "versicolor"), 5])
> cost_range <- seq(0.1, 0.9, by = 0.2)
> gamma_range <- c(0.1, 1, 10, 100, 1000)
> 
> gs <- grid_search(train_data, train_label,
+                   range_gamma = gamma_range,
+                   range_cost = cost_range,
+                   method = "estimator")
> model <- abcrlda(train_data, train_label,
+                  gamma = gs$gamma, cost = gs$cost)
> predict(model, train_data)
  [1] versicolor versicolor versicolor versicolor versicolor versicolor
  [7] versicolor versicolor versicolor versicolor versicolor versicolor
 [13] versicolor versicolor versicolor versicolor versicolor versicolor
 [19] versicolor versicolor versicolor versicolor versicolor versicolor
 [25] versicolor versicolor versicolor versicolor versicolor versicolor
 [31] versicolor versicolor versicolor versicolor versicolor versicolor
 [37] versicolor versicolor versicolor versicolor versicolor versicolor
 [43] versicolor versicolor versicolor versicolor versicolor versicolor
 [49] versicolor versicolor virginica  virginica  virginica  virginica 
 [55] virginica  virginica  virginica  virginica  virginica  virginica 
 [61] virginica  virginica  virginica  virginica  virginica  virginica 
 [67] virginica  virginica  virginica  virginica  virginica  virginica 
 [73] virginica  versicolor virginica  virginica  versicolor versicolor
 [79] virginica  versicolor virginica  virginica  virginica  versicolor
 [85] virginica  virginica  virginica  virginica  versicolor virginica 
 [91] virginica  virginica  virginica  virginica  virginica  virginica 
 [97] virginica  virginica  virginica  virginica 
Levels: versicolor virginica
> 
> cost_range <- matrix(1:10, ncol = 2)
> gamma_range <- c(0.1, 1, 10, 100, 1000)
> 
> gs <- grid_search(train_data, train_label,
+                   range_gamma = gamma_range,
+                   range_cost = cost_range,
+                   method = "cross")
> model <- abcrlda(train_data, train_label,
+                  gamma = gs$gamma, cost = gs$cost)
Error in solve.default(Hinv) : 'a' is 0-diml
Calls: abcrlda -> solve -> solve.default
Execution halted