diff options
| author | Suraj Yerramilli | 2016-05-21 22:42:11 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-21 22:42:11 +0530 |
| commit | f9c54818ab220b109f93c319cf426d4ad59efb53 (patch) | |
| tree | 7a6ca99958bb311f775900478b0722bca93fdb3b /R | |
| parent | 71d942ff6b8f64ef202062332cdd2ca35f31a1d5 (diff) | |
| download | SysID-R-code-f9c54818ab220b109f93c319cf426d4ad59efb53.tar.gz SysID-R-code-f9c54818ab220b109f93c319cf426d4ad59efb53.tar.bz2 SysID-R-code-f9c54818ab220b109f93c319cf426d4ad59efb53.zip | |
initialize rarx code
Diffstat (limited to 'R')
| -rw-r--r-- | R/rarx.R | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/R/rarx.R b/R/rarx.R new file mode 100644 index 0000000..8b477fa --- /dev/null +++ b/R/rarx.R @@ -0,0 +1,13 @@ +rarx <- function(x,order=c(1,1,1),lambda=0.95){ + y <- outputData(x); u <- inputData(x) + N <- dim(y)[1] + na <- order[1];nb <- order[2]; nk <- order[3] + nb1 <- nb+nk-1 ; n <- max(na,nb1); df <- N-na-nb + + yout <- apply(y,2,padZeros,n=n) + uout <- apply(u,2,padZeros,n=n) + + fixedflag = is.null(fixed) + uindex <- nk:nb1 + yindex <- 1:na +}
\ No newline at end of file |