### a simple k-nearest neighbour example
### datasets
## Not run: plot(x)
# data(golub)
# golubY <- golub[,1]
# golubX <- as.matrix(golub[,-1])
# ###Splitting data into training and test set
# X.tr<-golubX[1:30]
# X.new<-golubX[31:39]
# y.tr<-golubY[1:30]
# ### 1. GeneSelection
# selttest <- GeneSelection(X=X.tr, y=y.tr, method = "t.test")
# ### 2. tuning
# tunek <- tune(X.tr, y.tr, genesel = selttest, nbgene = 20, classifier = knnCMA)
# ### 3. classification
# pred <- prediction(X.tr=X.tr,y.tr=y.tr,X.new=X.new, genesel = selttest,
# tuneres = tunek, nbgene = 20, classifier = knnCMA)
# ### show and analyze results:
# show(pred)
#
# ## End(Not run)
Run the code above in your browser using DataLab