summaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
authorSuraj Yerramilli2016-05-15 22:12:26 +0530
committerSuraj Yerramilli2016-05-15 22:12:26 +0530
commit9c2781e62278b70cb8ffeb4f172470086c7fe248 (patch)
treec23b5966e64aefcfb18e4eabfc953e1cc443e75a /R
parent5b39ff0388157ad14118b9eda4f6ac130ca38dff (diff)
downloadSysID-R-code-9c2781e62278b70cb8ffeb4f172470086c7fe248.tar.gz
SysID-R-code-9c2781e62278b70cb8ffeb4f172470086c7fe248.tar.bz2
SysID-R-code-9c2781e62278b70cb8ffeb4f172470086c7fe248.zip
fixing the infinite recursion error
Diffstat (limited to 'R')
-rw-r--r--R/idframe.R31
1 files changed, 6 insertions, 25 deletions
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