Displaying 1 result from an estimated 1 matches for "predone".
Did you mean:
redone
2002 Aug 20
0
Re: SVM questions
...ject, newdata) {
## compute start-index
start <- c(1, cumsum(object$nSV)+1)
start <- start[-length(start)]
## compute kernel values
kernel <- sapply (1:object$tot.nSV,
function (x) K(object$SV[x,], newdata))
## compute raw prediction for classifier (i,j)
predone <- function (i,j) {
## ranges for class i and j:
ri <- start[i] : (start[i] + object$nSV[i] - 1)
rj <- start[j] : (start[j] + object$nSV[j] - 1)
## coefs for (i,j):
coef1 <- object$coefs[ri, j-1]
coef2 <- object$coefs[rj, i]
## return raw values:...