diff options
| author | Suraj Yerramilli | 2015-09-09 17:33:16 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-09-09 17:33:16 +0530 |
| commit | 7747ae4e5b7d5377c248249e575795de379ade20 (patch) | |
| tree | 13e6520b068922153615221de80078a578befe9d /R | |
| parent | a932940a29554c35f68ced4f8ae9d1ebdf7560ab (diff) | |
| download | SysID-R-code-7747ae4e5b7d5377c248249e575795de379ade20.tar.gz SysID-R-code-7747ae4e5b7d5377c248249e575795de379ade20.tar.bz2 SysID-R-code-7747ae4e5b7d5377c248249e575795de379ade20.zip | |
Changed to MATLAB convention
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 4d63e02..cfb4390 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -100,7 +100,7 @@ residplot <- function(model,newdata=NULL){ #' #' @param x an object of class \code{idframe} #' @param order: Specification of the orders: the three integer components -#' (na,nb,nk) are the order of polynolnomial A, order of polynomial B and +#' (na,nb,nk) are the order of polynolnomial A, (order of polynomial B + 1) and #' the input-output delay #' #' @details @@ -150,7 +150,7 @@ residplot <- function(model,newdata=NULL){ #' @export arx <- function(x,order=c(0,1,0)){ y <- outputData(x); u <- inputData(x); N <- dim(y)[1] - na <- order[1];nb <- order[2]; nk <- order[3] + na <- order[1];nb <- order[2]-1; nk <- order[3] nb1 <- nb+nk ; n <- max(na,nb1); df <- N - na - nb - 1 padZeros <- function(x,n) c(rep(0,n),x,rep(0,n)) |