问R ksvm kernlab未使用的参数

EN

id = "100397.txt"
dat <- read.table(id, header=FALSE,sep = ",")
n = nrow(dat) # number of data points
numCol = ncol(dat)
dat <- dat[,-c(numCol)] ### get rid of the last column because it is not useful.
numCol = ncol(dat) ### update the number of columns

ntrain <- round(n*0.8) # get 80% of data points for cross-validation training

tindex <- sample(n,ntrain) # get all indices for cross-valication trainining

xtrain <- dat[tindex,-c(numCol)] # training data, not include the class label

xtest  <- dat[-tindex,-c(numCol)] # test data, not include the class label

ytrain <- dat[tindex,c(numCol)] # class label for training data

ytest  <- dat[-tindex,c(numCol)] # class label for testing data

nrow(xtrain)

length(ytrain)

nrow(xtest)

length(ytest)

### SVM function ###
svp <- ksvm(xtrain, ytrain, type="C-bsvc", kernel='rbf', C = 10, prob.model=TRUE)