diff options
| author | unknown | 2015-04-02 16:06:09 +0530 |
|---|---|---|
| committer | unknown | 2015-04-02 16:06:09 +0530 |
| commit | f73dbdbd9c6d403accad4b0f0f6e28399cd2368a (patch) | |
| tree | 4e75fc66a1d07e31c4b3969644cc7c14aff373a2 /R | |
| parent | 51c5ccfd3fca302449dcff509f875a55c380f8c5 (diff) | |
| download | SysID-R-code-f73dbdbd9c6d403accad4b0f0f6e28399cd2368a.tar.gz SysID-R-code-f73dbdbd9c6d403accad4b0f0f6e28399cd2368a.tar.bz2 SysID-R-code-f73dbdbd9c6d403accad4b0f0f6e28399cd2368a.zip | |
Fixed bug in predicting trends on new data
Diffstat (limited to 'R')
| -rw-r--r-- | R/detrend.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/detrend.R b/R/detrend.R index 354ceae..029efa5 100644 --- a/R/detrend.R +++ b/R/detrend.R @@ -99,7 +99,7 @@ predict.detrend <- function(object,newdata=NULL,...){ detrend.predict <- function(object,data){ pred_list <- list() for(i in 1:ncol(data)){ - pred_list[[i]] <- predict(object[[i]],newdata=data.frame(t = time(data[,i]))) + pred_list[[i]] <- predict(object[[i]],newdata=data.frame(reg = time(data[,i]))) } pred <- data.frame(matrix(unlist(pred_list),ncol=ncol(data),byrow=T)) colnames(pred) <- colnames(data) |