diff options
| author | Suraj Yerramilli | 2016-01-05 23:44:07 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-01-05 23:44:07 +0530 |
| commit | 8fd7226635b22c5f7b784c96e24c692d8ce3dab5 (patch) | |
| tree | 2dd6e6933df851b9b1477858c8a65b26f7fa30ba | |
| parent | 6f0b7596ea2425bc27e539e507cca6270454fae8 (diff) | |
| download | SysID-R-code-8fd7226635b22c5f7b784c96e24c692d8ce3dab5.tar.gz SysID-R-code-8fd7226635b22c5f7b784c96e24c692d8ce3dab5.tar.bz2 SysID-R-code-8fd7226635b22c5f7b784c96e24c692d8ce3dab5.zip | |
added model names to the legend
| -rw-r--r-- | R/predict.R | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/R/predict.R b/R/predict.R index d11578e..aaf4668 100644 --- a/R/predict.R +++ b/R/predict.R @@ -58,11 +58,13 @@ predict.estpoly <- function(x,newdata=NULL,nahead=1){ #' @export compare <- function(data,nahead=1,...){ # Input Validation + input_list <- as.list(substitute(list(...)))[-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) - df <- data.frame(Time = time(data),Actual=outputData(data)[,1],Y) + df <- data.frame(Time = time(data),Actual=as.numeric(outputData(data)[,1]),Y) meltdf <- melt(df,id="Time") ggplot(meltdf,aes(x=Time,y=value,color=variable,group=variable))+geom_line() |