Displaying 1 result from an estimated 1 matches for "trainsample".
Did you mean:
train_sample
2001 Oct 15
0
predict.fda difficulties
...=DummyCellTypes,
matrix(rnorm(TotalN*17),TotalN,17))
DummyParams$CellType<-factor(DummyParams$CellType)
table(DummyParams$CellType)
TrainFDAs<-list(100)
TestConfusions<-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...