Mercurial > repos > deepakjadmin > caret_reg_tool2
comparison templateLibrary.py @ 4:3221ecaeb967 draft default tip
Uploaded
| author | deepakjadmin |
|---|---|
| date | Thu, 08 Jun 2017 18:33:53 -0400 |
| parents | 31ec202700b0 |
| children |
comparison
equal
deleted
inserted
replaced
| 3:31ec202700b0 | 4:3221ecaeb967 |
|---|---|
| 762 "associated with this model:", | 762 "associated with this model:", |
| 763 listString(tuneVars, period = TRUE)) | 763 listString(tuneVars, period = TRUE)) |
| 764 | 764 |
| 765 | 765 |
| 766 | 766 |
| 767 paramNames <- gsub(".", "", names(modelFit$bestTune), fixed = TRUE) | 767 paramNames <- gsub(".", "", names(modelFit$$bestTune), fixed = TRUE) |
| 768 for(i in seq(along = paramNames)) | 768 ##for(i in seq(along = paramNames)) |
| 769 { | 769 ## { |
| 770 check <- modelInfo$parameter %in% paramNames[i] | 770 ## check <- modelInfo$parameter %in% paramNames[i] |
| 771 if(any(check)) | 771 ## if(any(check)) |
| 772 { | 772 ## { |
| 773 paramNames[i] <- modelInfo$label[which(check)] | 773 ## paramNames[i] <- modelInfo$label[which(check)] |
| 774 } | 774 ## } |
| 775 } | 775 ## } |
| 776 | 776 |
| 777 paramNames <- gsub("#", "the number of ", paramNames, fixed = TRUE) | 777 paramNames <- gsub("#", "the number of ", paramNames, fixed = TRUE) |
| 778 ## Check to see if there was only one combination fit | 778 ## Check to see if there was only one combination fit |
| 779 summaryText <- paste(summaryText, | 779 summaryText <- paste(summaryText, |
| 780 "To choose", | 780 "To choose", |