Added an idpoly object

2 files changed, 8 insertions, 0 deletions

diff --git a/NAMESPACE b/NAMESPACE
index ffb4687..2c1afce 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -12,6 +12,7 @@ export(detrend)
 export(etfe)
 export(idframe)
 export(idfrd)
+export(idpoly)
 export(impulseest)
 export(read.idframe)
 export(read.table.idframe)
diff --git a/R/poly.R b/R/poly.R
new file mode 100644
index 0000000..234ac28
--- /dev/null
+++ b/R/poly.R
@@ -0,0 +1,7 @@
+#' @export
+idpoly <- function(A,B,C,D,E,F1,NoiseVar=0){
+  
+  out <- list()
+  class(out) <- "idpoly"
+  return(out)
+}
\ No newline at end of file