Displaying 1 result from an estimated 1 matches for "trainmiss".
Did you mean:
trainies
2001 Oct 15
0
predict.fda difficulties
...Confusions<-list(100)
TestErrs<-rep(-1,100)
i<-1
z<-0
runsum<-0
while(i<=100 & z<1000){
z<-z+1
TrainSample<-sample(1:TotalN,TrainN)
# Check to see if any CellTypes are missing from the training
# or test set as this will certainly cause an error.
TrainMissing<-any(table(DummyParams$CellType[TrainSample])==0)
TestMissing<-any(table(DummyParams$CellType[-TrainSample])==0)
if(!TrainMissing & !TestMissing){
TrainFDAs[[i]]<-fda(CellType~.,data=DummyParams[TrainSample,])
#Predict CellTypes of the test data set with the...