diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/predict.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/predict.R b/R/predict.R index d7813b7..8d07ad2 100644 --- a/R/predict.R +++ b/R/predict.R @@ -62,8 +62,8 @@ compare <- function(data,nahead=1,...){ dots <- list(...) if(is.null(dots)) stop("No model supplied") - names(dots) <- as.character(input_list) Y <- sapply(dots,predict,newdata=data,nahead=nahead) + colnames(Y) <- as.character(input_list) df <- data.frame(Time = as.numeric(time(data)), Actual=as.numeric(outputData(data)[,1]),Y) meltdf <- melt(df,id="Time") |