oldFunctions/best_model_name.R

In ryanbieber/Time-Series-Catch-All: Looks at time series data and produces the best forecast from them

#' Name of the best model chosen
#'
#' @param data original data with Date in first column
#' @param modellist list of data frames that contain errors from error_values
#' @param x integer indicating MAPE is the default, MSE = 2, or RMSE = 3
#'
#' @return List of he best model names used
#' @export
#'
#' @examples Takes the original data used and the list of errors made from error_calculatons to find out which is the best model.
#' mape <- name_of_best_model(data, DFError)
name_of_best_model <- function(data, modellist, x=1){
  namesList=list()
  for (i in 2:length(data)){
    namesError <- names(as.data.frame(modellist[[i]]))
    namesError <- namesError[match(min(modellist[[i]][x,]), modellist[[i]][x,])]
    namesList[[i]] <- namesError
  }
  bestModels <- as.character(unlist(namesList))
  return(bestModels)
}