cseidman/testmodel.R Secret

## testmodel.R
startPoint <- endRange+1
# Get the remainder for testing
testData <- ds[startPoint:rowCount,]

# Run the prediction and store it in a data set
pred <- rxPredict(prunedTree, data=testData,reportProgress = 0,writeModelVars=T)
	startPoint <- endRange+1
	# Get the remainder for testing
	testData <- ds[startPoint:rowCount,]

	# Run the prediction and store it in a data set
	pred <- rxPredict(prunedTree, data=testData,reportProgress = 0,writeModelVars=T)