diff options
| author | Suraj Yerramilli | 2015-08-22 10:09:05 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-08-22 10:09:05 +0530 |
| commit | f0443fbc29d1d3d52695dcd9116c8695b2118cc7 (patch) | |
| tree | 0e1a573f2a008cf5afadd8ed487a393701f2ed62 /R | |
| parent | 7a09475fcde4083d2dbe5d7c21a6a4ae5a1169ec (diff) | |
| download | SysID-R-code-f0443fbc29d1d3d52695dcd9116c8695b2118cc7.tar.gz SysID-R-code-f0443fbc29d1d3d52695dcd9116c8695b2118cc7.tar.bz2 SysID-R-code-f0443fbc29d1d3d52695dcd9116c8695b2118cc7.zip | |
Corrected some errors and updated documentation
Diffstat (limited to 'R')
| -rw-r--r-- | R/idframe.R | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R index aed020d..265bca7 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -32,7 +32,7 @@ idframe <- function(output=NULL,input=NULL,Ts = 1,start=0,end=NULL, start <- end - Ts*(n-1) } - l3 <- lapply(l,ts,start=start,deltat=1/Ts) + l3 <- lapply(l,ts,start=start,deltat=Ts) # Object Constructor dat <- list(output=l3[[1]],input=l3[[1]],unit=unit) @@ -73,7 +73,7 @@ summary.idframe <- function(x){ out_sum <- summary(outputData(x)) in_sum <- summary(inputData(x)) - out <- list(out_sum=out_sum,in_sum=in_sum,Ts=deltat(x)), + out <- list(out_sum=out_sum,in_sum=in_sum,Ts=deltat(x), unit=x$unit,nsample = dim(outputData(x))[1]) class(out) <- "summary.idframe" |