comparison templateLibrary.py @ 7:b9ca220a8090 draft

Uploaded
author deepakjadmin
date Wed, 21 Sep 2016 04:33:19 -0400
parents f8c9f83c7abb
children 12fde17bdd75
comparison
equal deleted inserted replaced
6:f8c9f83c7abb 7:b9ca220a8090
524 sep = "") 524 sep = "")
525 525
526 remove("rawData") 526 remove("rawData")
527 527
528 if((!is.null(testX)) && (!is.null(testY))){ 528 if((!is.null(testX)) && (!is.null(testY))){
529 save(trainX,trainY,testX,testY,file="datasets.RData") 529 #save(trainX,trainY,testX,testY,file="datasets.RData")
530 } else { 530 } else {
531 save(trainX,trainY,file="datasets.RData") 531 save(trainX,trainY,file="datasets.RData")
532 } 532 }
533 533
534 @ 534 @
1098 <<stopWorkers, echo = $STOPWORKERSECHO, results = $STOPWORKERSRESULT>>= 1098 <<stopWorkers, echo = $STOPWORKERSECHO, results = $STOPWORKERSRESULT>>=
1099 if(numWorkers > 1) stopCluster(cl) 1099 if(numWorkers > 1) stopCluster(cl)
1100 @ 1100 @
1101 1101
1102 <<testPred, results = $TESTPREDRESULT, echo = $TESTPREDECHO>>= 1102 <<testPred, results = $TESTPREDRESULT, echo = $TESTPREDECHO>>=
1103 save(trainX,trainY,testX,testY,file="datasets.RData")
1103 if(pctTrain < 1) 1104 if(pctTrain < 1)
1104 { 1105 {
1105 cat("\\clearpage\n\\section*{Test Set Results}\n\n") 1106 cat("\\clearpage\n\\section*{Test Set Results}\n\n")
1106 classPred <- predict(modelFit, testX) 1107 classPred <- predict(modelFit, testX)
1107 cm <- confusionMatrix(classPred, testY) 1108 cm <- confusionMatrix(classPred, testY)