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

> ### Name: comp.omega
> ### Title: Compute the possibilistic penalty argument for PCM
> ### Aliases: comp.omega
> ### Keywords: cluster
> 
> ### ** Examples
> 
> data(iris)
> x <- iris[,-5]
> 
> # Run FCM 
> res.fcm <- fcm(x=x, centers=3)
> 
> # Compute the mobilization scale values using the results from FCM
> vomg1 <- comp.omega(pco=res.fcm)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
ppclust
 --- call from context --- 
comp.omega(pco = res.fcm)
 --- call from argument --- 
if (class(u) == "data.frame") u <- as.matrix(u)
 --- R stacktrace ---
where 1: comp.omega(pco = res.fcm)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (d, u, m = 2, pco = NULL, K = 1) 
{
    if (!missing(pco)) {
        if (pco$algorithm == "PCM") 
            u <- pco$t
        if (pco$algorithm == "FCM") 
            u <- pco$u
        d <- pco$d
        m <- pco$m
    }
    if (missing(u)) 
        stop("Missing typicality matrix")
    if (is.null(u)) 
        stop("Memberships matrix contains no data")
    if (class(u) == "data.frame") 
        u <- as.matrix(u)
    if (class(u) != "matrix") 
        stop("Memberships data must be numeric data frame or matrix")
    if (any(is.na(u))) 
        stop("Memberships data should not contain NA values")
    if (!is.numeric(u)) 
        stop("Memberships data must be a numeric data frame or matrix")
    if (missing(d)) 
        stop("Missing distance matrix")
    if (is.null(d)) 
        stop("Distance matrix contains no data")
    if (class(d) == "data.frame") 
        d <- as.matrix(d)
    if (class(d) != "matrix") 
        stop("Distance data must be numeric data frame or matrix")
    if (any(is.na(d))) 
        stop("Distance data should not contain NA values")
    if (!is.numeric(m)) 
        stop("Argument 'm' must be a numeric value")
    if (!is.numeric(K)) 
        stop("Argument 'K' must be a numeric value")
    omega <- numeric(ncol(u))
    for (i in 1:ncol(u)) omega[i] <- K * ((u[, i]^m) %*% d[, 
        i])/sum(u[, i]^m)
    return(omega)
}
<bytecode: 0x3bc5660>
<environment: namespace:ppclust>
 --- function search by body ---
Function comp.omega in namespace ppclust has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(u) == "data.frame") u <- as.matrix(u) : 
  the condition has length > 1
Calls: comp.omega
Execution halted