summaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorSuraj Yerramilli2015-11-01 23:27:43 +0530
committerSuraj Yerramilli2015-11-01 23:27:43 +0530
commita4580b3258ccc741774f1c3b37c85f3e0f2838b4 (patch)
treea62d2d8f3650c08dd7377b1cbec8032361326bb7 /R
parentb10b9011e2c2485e7e3b297f0dd72ad10ff31f64 (diff)
downloadSysID-R-code-a4580b3258ccc741774f1c3b37c85f3e0f2838b4.tar.gz
SysID-R-code-a4580b3258ccc741774f1c3b37c85f3e0f2838b4.tar.bz2
SysID-R-code-a4580b3258ccc741774f1c3b37c85f3e0f2838b4.zip
minor corrections
Diffstat (limited to 'R')
-rw-r--r--R/poly.R2
1 files changed, 1 insertions, 1 deletions
diff --git a/R/poly.R b/R/poly.R
index e792fba..122f4c7 100644
--- a/R/poly.R
+++ b/R/poly.R
@@ -140,7 +140,7 @@ print_oe <- function(obj){
if(i-1==0){
cat(obj$F1[i])
} else{
- if(obj$A[i]>0) cat(" + ") else cat("- ")
+ if(obj$F1[i]>0) cat(" + ") else cat("- ")
if(!(abs(obj$F1[i])==1)) cat(abs(obj$F1[i]))
cat("q^{-",i-1,"}",sep="")