summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--R/predict.R2
-rw-r--r--data/arxsim.RDatabin2751 -> 18022 bytes
2 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")
diff --git a/data/arxsim.RData b/data/arxsim.RData
index 05791e8..d02d60f 100644
--- a/data/arxsim.RData
+++ b/data/arxsim.RData
Binary files differ