diff options
| author | Suraj Yerramilli | 2015-01-28 13:54:00 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-28 13:54:00 +0530 |
| commit | 962a79f46ef373c8cb3d2cf2c1d025872102f208 (patch) | |
| tree | 920fe1aed915b50345168ec5c4052a5a4930fa0e | |
| parent | 0e10b9145ef9bea896d7ad028d997cfb8606e795 (diff) | |
| download | SysID-R-code-962a79f46ef373c8cb3d2cf2c1d025872102f208.tar.gz SysID-R-code-962a79f46ef373c8cb3d2cf2c1d025872102f208.tar.bz2 SysID-R-code-962a79f46ef373c8cb3d2cf2c1d025872102f208.zip | |
minor corrections to the summary function
| -rw-r--r-- | R/idframe.R | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/R/idframe.R b/R/idframe.R index b84884b..39b1414 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -80,12 +80,12 @@ plot.idframe <- function(object,...){ # summary method for idframe object summary.idframe <- function(object,...){ - output <- summary(object$output) - input <- summary(object$input) + out_sum <- summary(object$output) + in_sum <- summary(object$input) - out <- list(outputs=out_sum,inputs=input_sum,Ts=object$Ts,type=object$type, - tUnit=object$tUnit) - if(type=="time"){ + out <- list(outputs=out_sum,inputs=in_sum,Ts=object$Ts,type=object$type, + tUnit=object$tUnit,no_of_samples = dim(outputs)[1]) + if(object$type=="time"){ out$tStart <- object$tStart;out$tEnd <- object$tEnd } else{ out$frequencies <- object$frequencies;out$fUnit <- object$fUnit |