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

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: multqrsvm
> ### Title: Fits multiple Quantile Regression SVM
> ### Aliases: multqrsvm
> 
> ### ** Examples
> 
> n<-200
> 
> x<-as.matrix(seq(-2,2,length.out = n))
> y<-rnorm(n)*(0.3+abs(sin(x)))
> 
> plot(x,y)
> 
> models<-list()
> quant<-c(0.01,0.25,0.5,0.75,0.99)
> models<-multqrsvm(x,y,tau = quant, doPar=FALSE, sigma = 1)
 ----------- FAILURE REPORT -------------- 
 --- failure: the condition has length > 1 ---
 --- srcref --- 
: 
 --- package (from environment) --- 
qrsvm
 --- call from context --- 
qrsvm(x = x, y = y, kernel = pdmat, cost = cost, tau = tau[i], 
    sigma = sigma, degree = degree, scale = scale, offset = offset, 
    order = order)
 --- call from argument --- 
if (class(kernel) == "character") {
    if (kernel == "rbfdot") {
        kern <- rbfdot(sigma = sigma)
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "polydot") {
        kern <- polydot(degree = degree, scale = scale, offset = offset)
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "vanilladot") {
        kern <- vanilladot()
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "tanhdot") {
        kern <- tanhdot(scale = scale, offset = offset)
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "laplacedot") {
        kern <- laplacedot(sigma = sigma)
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "besseldot") {
        kern <- besseldot(sigma = sigma, order = order, degree = degree)
        kernmat <- kernelMat(kern, x)
    }
    if (kernel == "anovadot") {
        kern <- anovadot(sigma = sigma, degree = degree)
        kernmat <- kernelMat(kern, x)
    }
    if (nrow(kernmat) < nrow(x)) {
        print("kernelMat not valid! Check if valid kernel type stated!")
    }
    pdcalc <- nearPD(kernmat)
    pdmat <- pdcalc$mat
}
 --- R stacktrace ---
where 1: qrsvm(x = x, y = y, kernel = pdmat, cost = cost, tau = tau[i], 
    sigma = sigma, degree = degree, scale = scale, offset = offset, 
    order = order)
where 2: multqrsvm(x, y, tau = quant, doPar = FALSE, sigma = 1)

 --- value of length: 2 type: logical ---
[1] FALSE FALSE
 --- function from context --- 
function (x, y, kernel = "rbfdot", cost = 1, tau = 0.95, sigma = 5, 
    degree = 2, scale = 1, offset = 1, order = 1) 
{
    requireNamespace("kernlab")
    requireNamespace("quadprog")
    requireNamespace("Matrix")
    if (class(kernel) == "character") {
        if (kernel == "rbfdot") {
            kern <- rbfdot(sigma = sigma)
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "polydot") {
            kern <- polydot(degree = degree, scale = scale, offset = offset)
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "vanilladot") {
            kern <- vanilladot()
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "tanhdot") {
            kern <- tanhdot(scale = scale, offset = offset)
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "laplacedot") {
            kern <- laplacedot(sigma = sigma)
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "besseldot") {
            kern <- besseldot(sigma = sigma, order = order, degree = degree)
            kernmat <- kernelMat(kern, x)
        }
        if (kernel == "anovadot") {
            kern <- anovadot(sigma = sigma, degree = degree)
            kernmat <- kernelMat(kern, x)
        }
        if (nrow(kernmat) < nrow(x)) {
            print("kernelMat not valid! Check if valid kernel type stated!")
        }
        pdcalc <- nearPD(kernmat)
        pdmat <- pdcalc$mat
    }
    if (class(kernel) == "matrix") {
        pdmat <- kernel
        kernmat <- kernel
        if (nrow(kernel) != ncol(kernel)) {
            cat("Given kernelMat has different col- rownumbers!! Check!", 
                fill = TRUE)
        }
    }
    Amat <- rbind(rep(1, nrow(x)), diag(x = 1, nrow = nrow(x)), 
        diag(x = -1, nrow = nrow(x)))
    Dmat <- pdmat
    dvec <- y
    b0 <- c(0, rep((cost * (tau - 1)), nrow(x)), rep(-cost * 
        tau, nrow(x)))
    erg <- solve.QP(Dmat = Dmat, dvec = dvec, Amat = t(Amat), 
        bvec = b0, meq = 1, factorized = FALSE)
    alpha <- erg$solution
    f <- alpha %*% kernmat
    offshift <- which.min((round(alpha, 3) - (cost * tau))^2 + 
        (round(alpha, 3) - (cost * (tau - 1)))^2)
    b <- y[offshift] - f[offshift]
    fnew <- alpha %*% kernmat + b
    if (class(kernel) == "character") {
        model <- list(alpha = alpha, xtrain = x, kernel = kern, 
            sigma = sigma, cost = cost, b0 = b, fitted = as.numeric(fnew), 
            tau = tau, scale = scale, offset = offset, order = order, 
            kernstring = kernel, y = y)
    }
    if (class(kernel) == "matrix") {
        model <- list(alpha = alpha, xtrain = x, kernel = 0, 
            sigma = sigma, cost = cost, b0 = b, fitted = as.numeric(fnew), 
            tau = tau, scale = scale, offset = offset, order = order, 
            kernstring = kernel, y = y)
    }
    class(model) <- "qrsvm"
    return(model)
}
<bytecode: 0x555e2ac6d588>
<environment: namespace:qrsvm>
 --- function search by body ---
Function qrsvm in namespace qrsvm has this body.
 ----------- END OF FAILURE REPORT -------------- 
Fatal error: the condition has length > 1