diff options
| author | Suraj Yerramilli | 2016-03-18 18:14:48 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-03-18 18:14:48 +0530 |
| commit | e73ac91c966dc20e34a67659804faa4a39efbddd (patch) | |
| tree | e38881842cccdfa379ad032e00e0b34d7b77d3a6 | |
| parent | 309e7fb1e9a6babac327696d32512ee3cbf3e41c (diff) | |
| download | SysID-R-code-e73ac91c966dc20e34a67659804faa4a39efbddd.tar.gz SysID-R-code-e73ac91c966dc20e34a67659804faa4a39efbddd.tar.bz2 SysID-R-code-e73ac91c966dc20e34a67659804faa4a39efbddd.zip | |
minor corrections in print routine
| -rw-r--r-- | R/poly.R | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -84,10 +84,10 @@ print.idpoly <- function(mod,se=NULL,dig=3){ main <- paste(main,"A(z)y[k] =") if(!checkUnity(mod$B)) main <- paste(main,"B(z)u[k] +") if(checkUnity(mod$C)){ - Cexp <- ifelse(mod$intNoise==T,"","1/(1-z^{-1})") + Cexp <- ifelse(!mod$intNoise,"","1/(1-z^{-1})") }else{ Cexp <- "C(z)" - if(mod$intNoise==T) Cexp <- paste(Cexp,"/(1-z^{-1})",sep="") + if(mod$intNoise) Cexp <- paste(Cexp,"/(1-z^{-1})",sep="") } main <- paste(main,Cexp,"e[k] \n\n") } |