diff options
| author | Suraj Yerramilli | 2015-01-28 13:54:26 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-01-28 13:54:26 +0530 |
| commit | 775ff64e30c5ad5827acf4ee9c6cf24a6a4ff6b2 (patch) | |
| tree | c7d04859f4802c85755fb016962484ae55d3cad4 | |
| parent | 962a79f46ef373c8cb3d2cf2c1d025872102f208 (diff) | |
| download | SysID-R-code-775ff64e30c5ad5827acf4ee9c6cf24a6a4ff6b2.tar.gz SysID-R-code-775ff64e30c5ad5827acf4ee9c6cf24a6a4ff6b2.tar.bz2 SysID-R-code-775ff64e30c5ad5827acf4ee9c6cf24a6a4ff6b2.zip | |
minor correction in the summary function
| -rw-r--r-- | R/idframe.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/idframe.R b/R/idframe.R index 39b1414..a0a6035 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -84,7 +84,7 @@ summary.idframe <- function(object,...){ in_sum <- summary(object$input) out <- list(outputs=out_sum,inputs=in_sum,Ts=object$Ts,type=object$type, - tUnit=object$tUnit,no_of_samples = dim(outputs)[1]) + tUnit=object$tUnit,no_of_samples = dim(object$output)[1]) if(object$type=="time"){ out$tStart <- object$tStart;out$tEnd <- object$tEnd } else{ |