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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: imembucr
> ### Title: Initialization of membership degrees over class range of a
> ###   selected feature
> ### Aliases: imembucr
> ### Keywords: cluster
> 
> ### ** Examples
> 
> data(iris)
> 
> # Generate a fuzzy membership matrix using the 1st feature
> u <- imembucr(iris[,1:4], k=5, sfidx=1)$u
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
inaparc
 --- call from context --- 
imembucr(iris[, 1:4], k = 5, sfidx = 1)
 --- call from argument --- 
if (class(x) != "matrix") stop("Data set must be a numeric data frame or matrix")
 --- R stacktrace ---
where 1: imembucr(iris[, 1:4], k = 5, sfidx = 1)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (x, k, mtype = "f", sfidx) 
{
    if (missing(x)) {
        stop("Missing data set")
    }
    else {
        if (class(x) == "data.frame") 
            x <- as.matrix(x)
        if (class(x) != "matrix") 
            stop("Data set must be a numeric data frame or matrix")
    }
    n <- nrow(x)
    p <- ncol(x)
    if (missing(k)) 
        stop("Missing input argument k")
    if (!is.numeric(k)) 
        stop("Argument k must be a positive integer")
    if (k < 1 || k > n) 
        stop(paste0("k should be an integer between 1 and ", 
            n, " for the data set being processed."))
    if (!mtype %in% c("f", "h")) 
        stop("Invalid membership type. The valid membership types are 'f' anf 'h'.")
    if (!missing(sfidx)) {
        if (!is.numeric(sfidx)) 
            stop(paste0("Selected feature index must be an integer between 1 and ", 
                p, " for the data set being processed."))
        else sfidx <- round(sfidx)
        if (sfidx < 1 | sfidx > p) 
            stop(paste0("Selected feature index must be an integer between 1 and ", 
                p, " for the data set being processed."))
    }
    else {
        cvx <- sqrt(var(x[, 1]))/mean(x[, 1])
        for (j in 2:p) {
            if (sqrt(var(x[, j]))/mean(x[, j]) > cvx) {
                cvx <- sqrt(var(x[, j]))/mean(x[, j])
                sfidx <- j
            }
        }
    }
    u <- matrix(nrow = n, ncol = k, 0)
    colnames(u) <- paste0("Cl.", 1:k)
    rownames(u) <- 1:n
    xrange <- diff(range(x[, sfidx]))
    clbreaks <- seq(min(x[, sfidx]), max(x[, sfidx]), xrange/k)
    clmids <- c()
    for (i in 1:length(clbreaks) - 1) clmids <- c(clmids, (clbreaks[i] + 
        clbreaks[i + 1])/2)
    if (mtype == "f") {
        for (i in 1:n) {
            ridx <- which.min(abs(x[i, sfidx] - clmids))
            u[i, ridx] <- xrange
            xs <- 1:k
            xs <- xs[-ridx]
            for (j in xs) u[i, j] <- xrange - abs(j - ridx) * 
                xrange/k
        }
        u <- u/rowSums(u)
    }
    else {
        for (i in 1:n) {
            ridx <- which.min(abs(x[i, sfidx] - clmids))
            u[i, ridx] <- 1
        }
    }
    u <- u/apply(u, 1, sum)
    if (any(rowSums(u) != 1)) 
        u[, 1] <- u[, 1] + (1 - rowSums(u))
    result <- list()
    result$u <- u
    if (mtype == "h") 
        result$mtype <- "hard"
    else result$mtype <- "fuzzy"
    result$call <- match.call()
    class(result) <- c("inaparc")
    return(result)
}
<bytecode: 0x34f2690>
<environment: namespace:inaparc>
 --- function search by body ---
Function imembucr in namespace inaparc has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(x) != "matrix") stop("Data set must be a numeric data frame or matrix") : 
  the condition has length > 1
Calls: imembucr
Execution halted