data(claudinLowData)
#Training Set
train<-claudinLowData
train$xd<- medianCtr(train$xd)
# Testing Set
test<-claudinLowData
test$xd<- medianCtr(test$xd)
# Generate Predictions
predout<-claudinLow(train$xd, as.matrix(train$classes$Group,ncol=1), test$xd)
# Obtain results
results <- cbind(predout$predictions, predout$distances)
#write.table(results,"T.E.9CELL.LINE_results.txt",sep="\t",col=T, row=F)
Run the code above in your browser using DataLab