diff options
| -rw-r--r-- | NAMESPACE | 6 | ||||
| -rw-r--r-- | R/idframe.R | 31 |
2 files changed, 6 insertions, 31 deletions
@@ -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 |