Terry Leitch
02-06-2018
irFitTimeGLM <- train(PRICE_NOTATION ~ .,
data = irSort[trainSlices,],
method = "parRF",allowParallel = TRUE)
pred <- predict(irFitTimeGLM,irSort[testSlices,])
true <- irSort$PRICE_NOTATION[testSlices]
meanErr[k]=mean(pred-true)
meanPcnt[k]=mean(meanErr)/mean(true)
sdErr[k]=sd(pred-true)