data("SinghTest")gene1gene2gene3gene4gene5gene6gene7gene8gene9gene10gene11gene12gene13gene14gene15gene16gene17gene18gene19gene20gene21gene22gene23gene24gene25gene26gene27gene28gene29gene30gene31gene32gene33gene34gene35gene36gene37gene38gene39gene40gene41gene42gene43gene44gene45gene46gene47gene48gene49gene50gene51gene52gene53gene54gene55gene56gene57gene58gene59gene60gene61gene62gene63gene64gene65gene66gene67gene68gene69gene70gene71gene72gene73gene74gene75gene76gene77gene78gene79gene80gene81gene82gene83gene84gene85gene86gene87gene88gene89gene90gene91gene92gene93gene94gene95gene96gene97gene98gene99gene100healthnormal tumorfeatureSelect,
churnTrain
require("MASS")
data(SinghTest)
BestGenes <- 10
XTr <- SinghTrain[,1:BestGenes]
yTr <- SinghTrain$health
ans <- lda(x=XTr, grouping=yTr)
XTe <- SinghTest[,1:BestGenes]
yH <- predict(ans, newdata=XTe)$class
yTe <- SinghTest$health
table(yTe, yH)
Run the code above in your browser using DataLab