Mercurial > repos > deepakjadmin > caret_reg_tool2
comparison templateLibrary.py @ 2:251849bed194 draft
Uploaded
| author | deepakjadmin |
|---|---|
| date | Thu, 08 Jun 2017 17:39:51 -0400 |
| parents | b82c88293260 |
| children | 31ec202700b0 |
comparison
equal
deleted
inserted
replaced
| 1:75f274299190 | 2:251849bed194 |
|---|---|
| 924 { | 924 { |
| 925 cat("\\clearpage\n\\section*{Test Set Results}\n\n") | 925 cat("\\clearpage\n\\section*{Test Set Results}\n\n") |
| 926 | 926 |
| 927 testPreds <- extractPrediction(list(fit = modelFit), | 927 testPreds <- extractPrediction(list(fit = modelFit), |
| 928 testX = testX, testY = testY) | 928 testX = testX, testY = testY) |
| 929 testPreds_all <- testPreds | |
| 929 testPreds <- subset(testPreds, dataType == "Test") | 930 testPreds <- subset(testPreds, dataType == "Test") |
| 931 testPreds_test <- testPreds | |
| 930 values <- modelFit$control$summaryFunction(testPreds) | 932 values <- modelFit$control$summaryFunction(testPreds) |
| 931 names(values) <- gsub("RMSE", "root mean squared error", names(values), fixed = TRUE) | 933 names(values) <- gsub("RMSE", "root mean squared error", names(values), fixed = TRUE) |
| 932 names(values) <- gsub("Rsquared", "$R^2$", names(values), fixed = TRUE) | 934 names(values) <- gsub("Rsquared", "$R^2$", names(values), fixed = TRUE) |
| 933 values <- format(values, digits = 3) | 935 values <- format(values, digits = 3) |
| 934 | 936 |