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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: Kmeans
> ### Title: Perform k-means clustering on a data matrix.
> ### Aliases: Kmeans
> 
> ### ** Examples
> 
> iris.mat <- as.matrix(iris[,1:4])
> k <- length(unique(iris[, dim(iris)[2]])) # Number of unique classes
> kms <- Kmeans(iris.mat, k)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
knor
 --- call from context --- 
Kmeans(iris.mat, k)
 --- call from argument --- 
if (class(data) == "character") {
    if (class(centers) == "numeric" || class(centers) == "integer") {
        ret <- .Call("R_knor_kmeans", normalizePath(as.character(data)), 
            as.integer(centers), as.double(nrow), as.double(ncol), 
            as.double(iter.max), as.integer(nthread), as.character(init), 
            as.double(tolerance), as.character(dist.type), as.logical(omp), 
            PACKAGE = "knor")
    }
    else if (class(centers) == "matrix") {
        ret <- .Call("R_knor_kmeans_centroids_im", normalizePath(as.character(data)), 
            as.matrix(centers), as.double(nrow), as.double(iter.max), 
            as.integer(nthread), as.double(tolerance), as.character(dist.type), 
            as.logical(omp), PACKAGE = "knor")
    }
    else if (class(centers) == "list") {
        ret <- .Call("R_knor_kmeans_data_centroids_em", normalizePath(as.character(data)), 
            normalizePath(as.character(centers[1])), as.integer(centers[2]), 
            as.double(nrow), as.double(ncol), as.double(iter.max), 
            as.integer(nthread), as.double(tolerance), as.character(dist.type), 
            as.logical(omp), PACKAGE = "knor")
    }
    else {
        stop(paste("Cannot handle centers of type", class(centers), 
            "\n"))
    }
} else if (class(data) == "matrix") {
    if (class(centers) == "numeric" || class(centers) == "integer") {
        ret <- .Call("R_knor_kmeans_data_im", as.matrix(data), 
            as.integer(centers), as.double(iter.max), as.integer(nthread), 
            as.character(init), as.double(tolerance), as.character(dist.type), 
            as.logical(omp), as.logical(numa.opt), PACKAGE = "knor")
    }
    else if (class(centers) == "matrix") {
        ret <- .Call("R_knor_kmeans_data_centroids_im", as.matrix(data), 
            as.matrix(centers), as.double(iter.max), as.integer(nthread), 
            as.double(tolerance), as.character(dist.type), as.logical(omp), 
            as.logical(numa.opt), PACKAGE = "knor")
    }
    else if (class(centers) == "character") {
        ret <- .Call("R_knor_kmeans_data_im_centroids_em", as.matrix(data), 
            normalizePath(centers), as.double(iter.max), as.integer(nthread), 
            as.double(tolerance), as.character(dist.type), as.logical(omp), 
            as.logical(numa.opt), PACKAGE = "knor")
    }
    else {
        stop(paste("Cannot handle centers of type", class(centers), 
            "\n"))
    }
} else {
    stop(paste("Cannot handle data of type", class(data), "\n"))
}
 --- R stacktrace ---
where 1: Kmeans(iris.mat, k)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (data, centers, nrow = -1, ncol = -1, iter.max = .Machine$integer.max, 
    nthread = -1, init = c("kmeanspp", "random", "forgy", "none"), 
    tolerance = 1e-06, dist.type = c("eucl", "cos"), omp = FALSE, 
    numa.opt = FALSE) 
{
    if (class(data) == "character") {
        if (class(centers) == "numeric" || class(centers) == 
            "integer") {
            ret <- .Call("R_knor_kmeans", normalizePath(as.character(data)), 
                as.integer(centers), as.double(nrow), as.double(ncol), 
                as.double(iter.max), as.integer(nthread), as.character(init), 
                as.double(tolerance), as.character(dist.type), 
                as.logical(omp), PACKAGE = "knor")
        }
        else if (class(centers) == "matrix") {
            ret <- .Call("R_knor_kmeans_centroids_im", normalizePath(as.character(data)), 
                as.matrix(centers), as.double(nrow), as.double(iter.max), 
                as.integer(nthread), as.double(tolerance), as.character(dist.type), 
                as.logical(omp), PACKAGE = "knor")
        }
        else if (class(centers) == "list") {
            ret <- .Call("R_knor_kmeans_data_centroids_em", normalizePath(as.character(data)), 
                normalizePath(as.character(centers[1])), as.integer(centers[2]), 
                as.double(nrow), as.double(ncol), as.double(iter.max), 
                as.integer(nthread), as.double(tolerance), as.character(dist.type), 
                as.logical(omp), PACKAGE = "knor")
        }
        else {
            stop(paste("Cannot handle centers of type", class(centers), 
                "\n"))
        }
    }
    else if (class(data) == "matrix") {
        if (class(centers) == "numeric" || class(centers) == 
            "integer") {
            ret <- .Call("R_knor_kmeans_data_im", as.matrix(data), 
                as.integer(centers), as.double(iter.max), as.integer(nthread), 
                as.character(init), as.double(tolerance), as.character(dist.type), 
                as.logical(omp), as.logical(numa.opt), PACKAGE = "knor")
        }
        else if (class(centers) == "matrix") {
            ret <- .Call("R_knor_kmeans_data_centroids_im", as.matrix(data), 
                as.matrix(centers), as.double(iter.max), as.integer(nthread), 
                as.double(tolerance), as.character(dist.type), 
                as.logical(omp), as.logical(numa.opt), PACKAGE = "knor")
        }
        else if (class(centers) == "character") {
            ret <- .Call("R_knor_kmeans_data_im_centroids_em", 
                as.matrix(data), normalizePath(centers), as.double(iter.max), 
                as.integer(nthread), as.double(tolerance), as.character(dist.type), 
                as.logical(omp), as.logical(numa.opt), PACKAGE = "knor")
        }
        else {
            stop(paste("Cannot handle centers of type", class(centers), 
                "\n"))
        }
    }
    else {
        stop(paste("Cannot handle data of type", class(data), 
            "\n"))
    }
}
<bytecode: 0x4079f68>
<environment: namespace:knor>
 --- function search by body ---
Function Kmeans in namespace knor has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1