CRAN Package Check Results for Package qrsvm

Last updated on 2020-02-17 00:49:23 CET.

Flavor Version Tinstall Tcheck Ttotal Status Flags
r-devel-linux-x86_64-debian-clang 0.2.1 8.75 74.27 83.02 ERROR
r-devel-linux-x86_64-debian-gcc 0.2.1 7.28 59.66 66.94 ERROR
r-devel-linux-x86_64-fedora-clang 0.2.1 102.76 ERROR
r-devel-linux-x86_64-fedora-gcc 0.2.1 98.05 ERROR
r-devel-windows-ix86+x86_64 0.2.1 16.00 95.00 111.00 OK
r-devel-windows-ix86+x86_64-gcc8 0.2.1 22.00 80.00 102.00 OK
r-patched-linux-x86_64 0.2.1 7.80 68.47 76.27 OK
r-patched-solaris-x86 0.2.1 136.60 OK
r-release-linux-x86_64 0.2.1 6.72 70.46 77.18 OK
r-release-windows-ix86+x86_64 0.2.1 14.00 78.00 92.00 OK
r-release-osx-x86_64 0.2.1 OK
r-oldrel-windows-ix86+x86_64 0.2.1 7.00 95.00 102.00 OK
r-oldrel-osx-x86_64 0.2.1 OK

Check Details

Version: 0.2.1
Check: examples
Result: ERROR
    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: 0xd4cc6e0>
    <environment: namespace:qrsvm>
     --- function search by body ---
    Function qrsvm in namespace qrsvm has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(kernel) == "character") { :
     the condition has length > 1
    Calls: multqrsvm -> qrsvm
    Execution halted
Flavor: r-devel-linux-x86_64-debian-clang

Version: 0.2.1
Check: examples
Result: ERROR
    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: 0x555f6c44f988>
    <environment: namespace:qrsvm>
     --- function search by body ---
    Function qrsvm in namespace qrsvm has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(kernel) == "character") { :
     the condition has length > 1
    Calls: multqrsvm -> qrsvm
    Execution halted
Flavor: r-devel-linux-x86_64-debian-gcc

Version: 0.2.1
Check: examples
Result: ERROR
    Running examples in ‘qrsvm-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0x9edfab0>
    <environment: namespace:qrsvm>
     --- function search by body ---
    Function qrsvm in namespace qrsvm has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(kernel) == "character") { :
     the condition has length > 1
    Calls: multqrsvm -> qrsvm
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-clang

Version: 0.2.1
Check: examples
Result: ERROR
    Running examples in ‘qrsvm-Ex.R’ failed
    The error most likely occurred in:
    
    > ### 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: 0xbb106d8>
    <environment: namespace:qrsvm>
     --- function search by body ---
    Function qrsvm in namespace qrsvm has this body.
     ----------- END OF FAILURE REPORT --------------
    Error in if (class(kernel) == "character") { :
     the condition has length > 1
    Calls: multqrsvm -> qrsvm
    Execution halted
Flavor: r-devel-linux-x86_64-fedora-gcc