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