diff options
| author | Suraj Yerramilli | 2016-01-06 23:32:46 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-01-06 23:32:46 +0530 |
| commit | 4536625059b048ebe628b7cc9995701395b0fc3a (patch) | |
| tree | af873daeef23bf5dff1a33779f9f054dc1a54696 | |
| parent | 1822c29e87ce2940fafe9076a55f4bdb9db5e134 (diff) | |
| download | SysID-R-code-4536625059b048ebe628b7cc9995701395b0fc3a.tar.gz SysID-R-code-4536625059b048ebe628b7cc9995701395b0fc3a.tar.bz2 SysID-R-code-4536625059b048ebe628b7cc9995701395b0fc3a.zip | |
modified the dataset to include fitted models
| -rw-r--r-- | R/predict.R | 2 | ||||
| -rw-r--r-- | data/arxsim.RData | bin | 2751 -> 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 Binary files differindex 05791e8..d02d60f 100644 --- a/data/arxsim.RData +++ b/data/arxsim.RData |