Displaying 1 result from an estimated 1 matches for "rsvmres".
Did you mean:
svmres
2007 Jan 22
0
Recursive-SVM (R-SVM)
...mres$coefs*yTrain[svmres$index]) %*% svmres$SV * md[SelInd]
rkW <- rank(W)
if( gLevel < length(ladder) )
{
SelInd <- SelInd[which(rkW > (ladder[gLevel] - ladder[gLevel+1]))]
}
}
}
ret <- list(ladder=ladder, Error=ErrVec/nTests, SelFreq=SelFreq)
}
SummaryRSVM <- function( RSVMres )
{
ERInd <- max( which(RSVMres$Error == min(RSVMres$Error)) )
MinLevel <- RSVMres$ladder[ERInd]
FreqVec <- RSVMres$SelFreq[, ERInd]
SelInd <- which( rank(FreqVec) >= (ladder[1]-MinLevel) )
# print("MinCV error of", min(RSVMres$Error), "at", MinLevel, "...