fixing the infinite recursion error

2 files changed, 6 insertions, 31 deletions

diff --git a/NAMESPACE b/NAMESPACE
index b903ab6..00e1040 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -3,10 +3,6 @@
 S3method("%=%",lbunch)
 S3method("inputNames<-",idframe)
 S3method("outputNames<-",idframe)
-S3method(deltat,default)
-S3method(deltat,idframe)
-S3method(frequency,default)
-S3method(frequency,idframe)
 S3method(inputData,default)
 S3method(inputData,idframe)
 S3method(inputNames,default)
@@ -28,8 +24,6 @@ S3method(sim,default)
 S3method(sim,idpoly)
 S3method(summary,estpoly)
 S3method(summary,idframe)
-S3method(time,default)
-S3method(time,idframe)
 export("%=%")
 export("inputNames<-")
 export("outputNames<-")
diff --git a/R/idframe.R b/R/idframe.R
index eef9690..7399350 100644
--- a/R/idframe.R
+++ b/R/idframe.R
@@ -109,39 +109,20 @@ print.summary.idframe <- function(x,...){
 }
 
 #' @export
-time <- function(x) UseMethod("time")
-
-#' @export
-time.default <- function(x) stats::time(x)
-
-#' @export
-time.idframe <- function(x){
-  time(x$output)
+time <- function(x){
+  stats::time(x$output)
 }
 
 #' @export
-frequency <- function(x) UseMethod("frequency")
-
-#' @export
-frequency.default <- function(x) stats::frequency(x)
-
-#' @export
-frequency.idframe <- function(x){
-  frequency(x$output)
+frequency <- function(x){
+  stats::frequency(x$output)
 }
 
 #' @export
-deltat <- function(x) UseMethod("deltat")
-
-#' @export
-deltat.default <- function(x) stats::deltat(x)
-
-#' @export
-deltat.idframe <- function(x){
-  deltat(x$output)
+deltat <- function(x){
+  stats::deltat(x$output)
 }
 
-
 #' S3 class constructor for storing frequency response data
 #' 
 #' @param respData frequency response data. For SISO systems, supply a