# NOT RUN {
Sigma <- 1.325386 #Set parameter values equal to result of SelectParam.
Gamma <- 0.07531579 #Speeds up example
TrainData <- KOS_Data$TrainData
TrainCat <- KOS_Data$TrainCat
SelectParams(TrainData = TrainData ,
TrainCat = TrainCat,
Sigma = Sigma,
Gamma = Gamma)
# }
Run the code above in your browser using DataLab