diff options
Diffstat (limited to 'R/gensvm.grid.R')
| -rw-r--r-- | R/gensvm.grid.R | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/R/gensvm.grid.R b/R/gensvm.grid.R index 92478c2..3dad021 100644 --- a/R/gensvm.grid.R +++ b/R/gensvm.grid.R @@ -463,7 +463,11 @@ gensvm.cv.results <- function(results, param.grid, cv.idx, y.true, } for (parname in names(param.grid)) { - df[[sprintf("param.%s", parname)]][pidx] <- param[[parname]] + header <- sprintf("param.%s", parname) + val <- param[[parname]] + if (is.factor(val)) + val <- levels(val)[val] + df[[header]][pidx] <- val } j <- 1 |