diff options
| author | Suraj Yerramilli | 2016-02-23 15:13:16 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-23 15:13:16 +0530 |
| commit | 7e3f663b58538b8a7a68fb59d4c9df6b034831cd (patch) | |
| tree | 502a588125d12b2f77bd008f2db5bacb49624ea3 | |
| parent | 4ad38fd49e1b508f45bd1f446bb36cca76873a47 (diff) | |
| download | SysID-R-code-7e3f663b58538b8a7a68fb59d4c9df6b034831cd.tar.gz SysID-R-code-7e3f663b58538b8a7a68fb59d4c9df6b034831cd.tar.bz2 SysID-R-code-7e3f663b58538b8a7a68fb59d4c9df6b034831cd.zip | |
support for SISO systems
| -rw-r--r-- | R/idframe.R | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/R/idframe.R b/R/idframe.R index 77a6582..6ad94f3 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -142,6 +142,13 @@ deltat.idframe <- function(data){ #' @export idfrd <- function(respData,freq,Ts,spec=NULL,covData=NULL, noiseCov=NULL){ + # For SISO systems + if(is.vector(respData)||dim(respData)[1]==nrow(freq)){ + dim(respData) <- c(1,1,nrow(freq)) + dim(spec) <- c(1,1,nrow(freq)) + } + + if(dim(respData)[1]==dim) out <- list(response=respData,freq=freq,Ts=Ts,spec=spec,covData= covData,noiseCov = noiseCov) class(out) <- "idfrd" |