R/svmc.R

In mlesnoff/rnirs: Dimension reduction, Regression and Discrimination for Chemometrics

svmc <- function(
    Xr, Yr, Xu, Yu = NULL,
    C = 1, epsilon = .1, 
    kern = krbf, 
    print = TRUE, 
    ...
    ) {
    
    if(!is.factor(Yr))
        Yr <- as.factor(Yr)
    
    ni <- c(table(Yr))

    namkern <- as.character(substitute(kern))
    
    fm <- svmr(
        Xr, Yr, Xu, Yu,
        C, epsilon, 
        kern = namkern, 
        print, ...
        )
    
    z <- ncol(fm$y)
    fm$fit[, z] <- as.character(fm$fit[, z])
    if(!is.null(fm$r)) {
        fm$y[, z] <- as.character(fm$y[, z])
        fm$r <- fm$y
        fm$r[, z] <- as.numeric(fm$y[, z] != fm$fit[, z])
        }

    list(y = fm$y, fit = fm$fit, r = fm$r, ni = ni)
    
 }