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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: FeaLect-package
> ### Title: Scores Features for Feature Selection
> ### Aliases: FeaLect-package
> ### Keywords: package regression multivariate classif models
> 
> ### ** Examples
> 
> library(FeaLect)
> data(mcl_sll)
> F <- as.matrix(mcl_sll[ ,-1])	# The Feature matrix
> L <- as.numeric(mcl_sll[ ,1])	# The labels
> names(L) <- rownames(F)
> message(dim(F)[1], " samples and ",dim(F)[2], " features.")
22 samples and 236 features.
> 
> ## For this data, total.num.of.models is suggested to be at least 100.
> FeaLect.result.1 <-FeaLect(F=F,L=L,maximum.features.num=10,total.num.of.models=20,talk=TRUE)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
FeaLect
 --- call from context --- 
input.check.FeaLect(F_ = F, L_ = L, maximum.features.num = maximum.features.num, 
    gamma = gamma)
 --- call from argument --- 
if (class(F_) != "matrix" | class(L_) != "numeric") stop(paste("Input error! F should be a matrix, L should be a numeric vector."))
 --- R stacktrace ---
where 1: input.check.FeaLect(F_ = F, L_ = L, maximum.features.num = maximum.features.num, 
    gamma = gamma)
where 2: FeaLect(F = F, L = L, maximum.features.num = 10, total.num.of.models = 20, 
    talk = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE  TRUE
 --- function from context --- 
function (F_, L_, maximum.features.num, gamma) 
{
    if (class(F_) != "matrix" | class(L_) != "numeric") 
        stop(paste("Input error! F should be a matrix, L should be a numeric vector."))
    if (dim(F_)[1] != length(L_)) 
        stop(paste("Number of rows of F (input feature matrix) and length of L (vector of labels) should be the same."))
    if (is.null(colnames(F_))) {
        colnames(F_) <- 1:dim(F_)[2]
    }
    inds <- which(is.na(colnames(F_)))
    colnames(F_)[inds] <- paste("NA", inds, sep = "")
    if (is.null(rownames(F_)) | is.null(names(L_))) {
        rownames(F_) <- 1:dim(F_)[1]
        names(L_) <- 1:length(L_)
    }
    if (maximum.features.num > gamma * length(unique(rownames(F_)))) {
        maximum.features.num <- round(gamma * length(unique(rownames(F_))), 
            0)
        warning("\nmaximum.features.num was more than gamma times the number of instances (number of distinct rows of F_). \n", 
            "It was automatically reduced to: ", maximum.features.num, 
            " (gamma times the number of instances,) \n", "because Lasso would not select more than this number of features by any bound value for lambda. \n", 
            "The technical reason is that the linear equation will have exact solution with error zero!\n")
    }
    if (prod(rownames(F_) == names(L_)) == 0) {
        warning(" rownames(F_) != rownames(L_) !!! ", "\n The names of row of the labels (L_) should be exatcly the same as row names of features matrix (F_). \n")
    }
    return(list(F_ = F_, L_ = L_, maximum.features.num = maximum.features.num))
}
<bytecode: 0x9f3c708>
<environment: namespace:FeaLect>
 --- function search by body ---
Function input.check.FeaLect in namespace FeaLect has this body.
 ----------- END OF FAILURE REPORT -------------- 
Error in if (class(F_) != "matrix" | class(L_) != "numeric") stop(paste("Input error! F should be a matrix, L should be a numeric vector.")) : 
  the condition has length > 1
Calls: FeaLect -> input.check.FeaLect
Execution halted