diff options
| author | Suraj Yerramilli | 2015-01-28 15:18:02 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-28 15:18:02 +0530 |
| commit | a61d7c354f57322ad334df5ea6194514f22869c2 (patch) | |
| tree | 56058c47a818b6c1808bfe62eba37e68e5c64e05 | |
| parent | b9485ff099d33ac49c30940ec5554b67e7b5fa75 (diff) | |
| download | SysID-R-code-a61d7c354f57322ad334df5ea6194514f22869c2.tar.gz SysID-R-code-a61d7c354f57322ad334df5ea6194514f22869c2.tar.bz2 SysID-R-code-a61d7c354f57322ad334df5ea6194514f22869c2.zip | |
Added print function for the summary class
| -rw-r--r-- | R/idframe.R | 25 |
1 files changed, 24 insertions, 1 deletions
diff --git a/R/idframe.R b/R/idframe.R index a0a6035..f261300 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -88,8 +88,31 @@ summary.idframe <- function(object,...){ if(object$type=="time"){ out$tStart <- object$tStart;out$tEnd <- object$tEnd } else{ - out$frequencies <- object$frequencies;out$fUnit <- object$fUnit + out$frequencies <- summary(object$frequencies);out$fUnit <- object$fUnit } + class(out) <- "summary.idframe" return(out) +} + +# print method for summary.idframe object +print.summary.idframe <- function(object,...){ + cat("Domain: ");cat(object$type) + cat("\t\t Number of samples:");cat(object$no_of_samples) + cat("\nSampling time: ") + cat(object$Ts);cat(" ");cat(object$tUnit) + + if(object$type=="frequency"){ + cat("\t Frequency Unit: ");print(object$fUnit) + cat("\n\n Frequeny Summary:") + print(object$frequencies) + } + + cat("\n\n") + cat("Outputs \n") + print(object$outputs) + cat("\n") + + cat("Inputs \n") + print(object$inputs) }
\ No newline at end of file |