diff options
| author | Suraj Yerramilli | 2016-05-15 23:16:47 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-15 23:16:47 +0530 |
| commit | 6a75ed3815112e4f500ba64e22b3391a55b12938 (patch) | |
| tree | 9ba79623d06cc70400e41eda353c11834ac3c43a /R/idframe.R | |
| parent | 9c2781e62278b70cb8ffeb4f172470086c7fe248 (diff) | |
| download | SysID-R-code-6a75ed3815112e4f500ba64e22b3391a55b12938.tar.gz SysID-R-code-6a75ed3815112e4f500ba64e22b3391a55b12938.tar.bz2 SysID-R-code-6a75ed3815112e4f500ba64e22b3391a55b12938.zip | |
correcting call to stats
Diffstat (limited to 'R/idframe.R')
| -rw-r--r-- | R/idframe.R | 18 |
1 files changed, 15 insertions, 3 deletions
diff --git a/R/idframe.R b/R/idframe.R index 7399350..830c78d 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -110,17 +110,29 @@ print.summary.idframe <- function(x,...){ #' @export time <- function(x){ - stats::time(x$output) + if(class(x)[1]!="idframe"){ + stats::time(x) + } else{ + stats::time(x$output) + } } #' @export frequency <- function(x){ - stats::frequency(x$output) + if(class(x)[1]!="idframe"){ + stats::frequency(x) + } else{ + stats::frequency(x$output) + } } #' @export deltat <- function(x){ - stats::deltat(x$output) + if(class(x)[1]!="idframe"){ + stats::deltat(x) + } else{ + stats::deltat(x$output) + } } #' S3 class constructor for storing frequency response data |