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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: nroImpute
> ### Title: Impute missing values
> ### Aliases: nroImpute
> 
> ### ** Examples
> 
> # Import data.
> fname <- system.file("extdata", "finndiane.txt", package = "Numero")
> dataset <- read.delim(file = fname)
> 
> # Convert identities to strings (produces a warning later).
> ds <- dataset
> ds$INDEX <- paste("K", ds$INDEX, sep=".")
> 
> # Introduce missing values to cholesterol.
> missing <- seq(from = 1, to = nrow(ds), length.out = 40)
> missing <- unique(round(missing))
> ds$CHOL[missing] <- NA
> 
> # Impute missing values with and without standardization.
> ds.std <- nroImpute(data = ds, standard = TRUE)
Warning in nroImpute(data = ds, standard = TRUE) :
  Non-numeric column(s) excluded.
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
Numero
 --- call from context --- 
nroImpute(data = ds, standard = TRUE)
 --- call from argument --- 
if (class(data) == "character") stop(data)
 --- R stacktrace ---
where 1: nroImpute(data = ds, standard = TRUE)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (data, subsample = 500, standard = TRUE, message = NULL) 
{
    dfbit <- is.data.frame(data)
    data <- nroRcppMatrix(data, trim = FALSE)
    binary <- attr(data, "binary")
    if (length(data) < 1) 
        return(data)
    if (ncol(data) < 2) {
        warning("Less than two columns.")
        return(data)
    }
    if (nrow(data) < 2) {
        warning("Less than two rows.")
        return(data)
    }
    if (is.null(subsample)) 
        subsample <- nrow(data)
    else subsample <- as.integer(subsample[[1]])
    if (is.null(standard)) 
        standard <- TRUE
    else standard <- as.logical(standard[[1]])
    if (is.null(message)) 
        message <- -1
    else message <- as.double(message[[1]])
    if (!is.finite(subsample)) 
        stop("Unusable subsample size.")
    if (subsample > nrow(data)) 
        subsample <- nrow(data)
    if (subsample < 10) 
        stop("Too small subsample.")
    if (!is.finite(message)) 
        message <- -1
    rnames <- rownames(data)
    cnames <- colnames(data)
    numerics <- c()
    for (j in 1:ncol(data)) {
        flags <- is.finite(data[, j])
        if (sum(flags) > 0) 
            numerics <- c(numerics, j)
    }
    if (length(numerics) < 2) {
        warning("Less than two numeric columns.")
        return(data)
    }
    if (length(numerics) < ncol(data)) 
        warning("Non-numeric column(s) excluded.")
    sigma <- rep(NA, ncol(data))
    if (standard) {
        for (j in numerics) {
            x <- data[, j]
            sigma[j] <- stats::sd(x, na.rm = TRUE)
            if (!is.finite(sigma[j])) 
                sigma[j] <- 1
            data[, j] <- x/(sigma[j])
        }
    }
    data[, numerics] <- .Call("nro_impute", as.matrix(data[, 
        numerics]), as.integer(subsample), as.double(message), 
        PACKAGE = "Numero")
    if (class(data) == "character") 
        stop(data)
    for (j in numerics) data[, j] <- (sigma[j]) * (data[, j])
    if (dfbit) 
        data <- as.data.frame(data, stringsAsFactors = FALSE)
    rownames(data) <- rnames
    colnames(data) <- cnames
    attr(data, "binary") <- intersect(binary, cnames)
    return(data)
}
<bytecode: 0x55b83a8889e8>
<environment: namespace:Numero>
 --- function search by body ---
Function nroImpute in namespace Numero has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1