I have the following R code below:
# call ksvm
model <- ksvm(as.matrix(data[,1:10]),as.factor(data[,11]),type="C- svc",kernel="vanilladot",C=100,scaled=TRUE)
# calculate a1.am
a <- colSums(model@xmatrix[[1]] * model@coef[[1]])
I'm trying to understand what this piece of code is doing:
colSums(model@xmatrix[[1]] * model@coef[[1]])
A detailed breakdown would be appreciated.