# NOT RUN {
# for efficiency, we will only use 500 variables
# load the training data (Lung cancer data, cleaned)
data(lung.train) # 145 x 1578
X.train <- lung.train[,1:500]
y.train <- lung.train[,1578]
# build the DECODE
object <- decodeLDA(X.train, y.train)
object
summary(object)
coef(object)
# test on test data
data(lung.test)
X.test <- lung.test[,1:500]
y.test <- lung.test[,1578]
y.pred <- predict(object, X.test)
table(y.pred, y.test)
# }
Run the code above in your browser using DataLab