# NOT RUN {
TrainData <- QDA_Data$TrainData
TrainCat <- QDA_Data$TrainCat
TestData <- QDA_Data$TestData
plot(TrainData[,2]~TrainData[,1], col = c("blue","orange")[as.factor(TrainCat)])
#----- Full QDA -------
QDA(TrainData = TrainData,
TrainCat = TrainCat,
TestData = TestData,
Method = "Full",
gamma = 1E-5)
#----- Compressed QDA -------
m1 <- 700
m2 <- 300
s <- 0.01
QDA(TrainData = TrainData,
TrainCat = TrainCat,
TestData = TestData,
Method = "Compressed",
Mode = "Research",
m1 = m1,
m2 = m2,
s = s,
gamma = 1E-5)
QDA(TrainData = TrainData,
TrainCat = TrainCat,
TestData = TestData,
Method = "Compressed",
Mode = "Automatic",
gamma = 1E-5)
#----- Sub-sampled QDA ------
m1 <- 700
m2 <- 300
QDA(TrainData = TrainData,
TrainCat = TrainCat,
TestData = TestData,
Method = "Subsampled",
Mode = "Research",
m1 = m1,
m2 = m2,
gamma = 1E-5)
QDA(TrainData = TrainData,
TrainCat = TrainCat,
TestData = TestData,
Method = "Subsampled",
Mode = "Automatic",
gamma = 1E-5)
# }
Run the code above in your browser using DataLab