added the time attribute for idframe objects

2 files changed, 2 insertions, 0 deletions

diff --git a/NAMESPACE b/NAMESPACE
index 0b7e44a..bc94407 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -25,6 +25,7 @@ S3method(sim,default)
 S3method(sim,idpoly)
 S3method(summary,estARX)
 S3method(summary,idframe)
+S3method(time,idframe)
 export("inputNames<-")
 export("outputNames<-")
 export(armax)
diff --git a/R/idframe.R b/R/idframe.R
index 8a2db47..700467c 100644
--- a/R/idframe.R
+++ b/R/idframe.R
@@ -95,6 +95,7 @@ print.summary.idframe <- function(object,...){
   print(object$in_sum)
 }
 
+#' @export
 time.idframe <- function(data){
   time(data$output)
 }