minor corrections

1 files changed, 2 insertions, 1 deletions

diff --git a/R/poly.R b/R/poly.R
index 2c29b3f..ee03fe4 100644
--- a/R/poly.R
+++ b/R/poly.R
@@ -56,11 +56,12 @@ typecheck <- function(x){
       } else{
         out <- if(y$C) "ar" else "arma"
       }
-      if(y$B) out <- paste(out,"x",sep="")
+      if(!y$B) out <- paste(out,"x",sep="")
     } else{
       out <- "polynomial"
     }
   }
+  out
 }
 
 checkUnity <- function(x){