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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: DBSclustering
> ### Title: Databonic swarm clustering (DBS)
> ### Aliases: DBSclustering
> ### Keywords: swarm cluster analysis Databonic swarm clustering cluster
> ###   analysis cluster
> 
> ### ** Examples
> 
> data("Lsun3D")
> Data=Lsun3D$Data
> InputDistances=as.matrix(dist(Data))
> ## Not run: 
> ##D visualization=GeneratePswarmVisualization(Data,
> ##D 
> ##D projection$ProjectedPoints,projection$LC)
> ##D ## Sometimes an automatic Clustering can be improved 
> ##D ## thorugh an interactive approach, 
> ##D ## e.g. if Outliers exist (see [Thrun/Ultsch, 2017])
> ##D library(ProjectionBasedClustering)
> ##D Cls2=ProjectionBasedClustering::interactiveClustering(visualization$Umatrix, 
> ##D visualization$Bestmatches, Cls)
> ## End(Not run)
> ## Don't show: 
> data2=matrix(runif(n = 100),10,10)
> distance=as.matrix(dist(data2))
> res2=Pswarm(distance,LC = c(10,12))

  |                                                                            
  |                                                                      |   0%
  |                                                                            
  |============                                                          |  17%
  |                                                                            
  |=======================                                               |  33%
  |                                                                            
  |===================================                                   |  50%
  |                                                                            
  |===============================================                       |  67%
  |                                                                            
  |==========================================================            |  83%
  |                                                                            
  |======================================================================| 100%
> Cls=DBSclustering(k=2, data2, 
+ 
+ res2$ProjectedPoints, res2$LC,PlotIt=FALSE)
Loading required namespace: parallelDist
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
DatabionicSwarm
 --- call from context --- 
uniquePoints_hlp(cbind(X, Y))
 --- call from argument --- 
if (class(data) != "matrix") {
    data <- as.matrix(data)
}
 --- R stacktrace ---
where 1: uniquePoints_hlp(cbind(X, Y))
where 2: DelaunayGraphMatrix_hlp(TiledX, TiledY, PlotIt = PlotIt)
where 3: Delaunay4Points(BestMatches, Grid = LC, IsToroid = T, PlotIt = F, 
    Gabriel = GabrielGraph)
where 4: DBSclustering(k = 2, data2, res2$ProjectedPoints, res2$LC, PlotIt = FALSE)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (data) 
{
    eps <- 1e-10
    if (class(data) != "matrix") {
        data <- as.matrix(data)
    }
    AnzPoints <- nrow(data)
    rownames(data) <- c(1:AnzPoints)
    dists <- as.matrix(dist(data))
    IsDuplicate = (dists < eps) * 1 - diag(AnzPoints)
    dists <- dists - (dists * upper.tri(dists, diag = T)) + upper.tri(dists, 
        diag = T)
    if (length(which(dists < eps)) > 0) {
        ind <- which(dists < eps, arr.ind = TRUE)
        ind <- ind[as.character(unique(ind[, 1])), ]
        uniquedata <- data[-as.matrix(ind)[, 1], ]
        mergeind <- c(1:AnzPoints)
        indhelp <- c(1:nrow(uniquedata))
        names(indhelp) <- rownames(uniquedata)
        mergeind[as.numeric(names(indhelp))] <- indhelp
        if (ncol(as.matrix(ind)) == 1) {
            mergeind[as.matrix(ind)[, 1]] = as.matrix(ind)[, 
                1]
        }
        else {
            mergeind[ind[, 1]] <- mergeind[ind[, 2]]
        }
        return(list(unique = as.matrix(uniquedata), sortind = as.numeric(rownames(uniquedata)), 
            mergeind = mergeind, IsDuplicate = IsDuplicate))
    }
    else {
        return(list(unique = unique(data), sortind = c(1:AnzPoints), 
            mergeind = c(1:AnzPoints), IsDuplicate = IsDuplicate))
    }
}
<bytecode: 0x77afb78>
<environment: 0x77c1078>
 --- function search by body ---
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1