comparison templateLibrary.py @ 8:12fde17bdd75 draft

Uploaded

7:b9ca220a8090

<<stopWorkers, echo = $STOPWORKERSECHO, results = $STOPWORKERSRESULT>>=
if(numWorkers > 1) stopCluster(cl)
@ 

<<testPred, results = $TESTPREDRESULT, echo = $TESTPREDECHO>>=
save(trainX,trainY,testX,testY,file="datasets.RData")
  if(pctTrain < 1) 
  {
    cat("\\clearpage\n\\section*{Test Set Results}\n\n")
    classPred <- predict(modelFit, testX)
    cm <- confusionMatrix(classPred, testY)

@ 

<<save-data, echo = $SAVEDATAECHO, results = $SAVEDATARESULT>>=
## change this to the name of modName....
Fit<-modelFit
save(Fit,file="$METHOD-Fit.RData")
@
The model was built using $METHOD and is saved as $METHOD Model for reuse. This contains the variable Fit.

\end{document}'''

8:12fde17bdd75

<<stopWorkers, echo = $STOPWORKERSECHO, results = $STOPWORKERSRESULT>>=
if(numWorkers > 1) stopCluster(cl)
@ 

<<testPred, results = $TESTPREDRESULT, echo = $TESTPREDECHO>>=
if((!is.null(testX)) && (!is.null(testY))){
   save(trainX,trainY,testX,testY,file="datasets.RData")
   } else {
         save(trainX,trainY,file="datasets.RData")
          }

  if(pctTrain < 1) 
  {
    cat("\\clearpage\n\\section*{Test Set Results}\n\n")
    classPred <- predict(modelFit, testX)
    cm <- confusionMatrix(classPred, testY)

@ 

<<save-data, echo = $SAVEDATAECHO, results = $SAVEDATARESULT>>=
## change this to the name of modName....
Fit<-modelFit

if(exists('ppInfo') && !is.null(ppInfo)){
save(Fit,ppInfo,file="$METHOD-Fit.RData")
} else {save(Fit,file="$METHOD-Fit.RData")}




@
The model was built using $METHOD and is saved as $METHOD Model for reuse. This contains the variable Fit.

\end{document}'''