diff options
| author | Suraj Yerramilli | 2016-03-21 16:57:04 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-03-21 16:57:04 +0530 |
| commit | 7d047bf6b3f7ed956656caaf8f95ebade87cdc79 (patch) | |
| tree | bcf2fe928a87cbd07f0e2105682fd2f7fbfcc43d | |
| parent | 10412585ddf1129341410b5a762a74e6f4c7c183 (diff) | |
| download | SysID-R-code-7d047bf6b3f7ed956656caaf8f95ebade87cdc79.tar.gz SysID-R-code-7d047bf6b3f7ed956656caaf8f95ebade87cdc79.tar.bz2 SysID-R-code-7d047bf6b3f7ed956656caaf8f95ebade87cdc79.zip | |
correcting cases where spec isn't specified
| -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 22a36ac..1f04062 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -151,7 +151,7 @@ idfrd <- function(respData,freq,Ts,spec=NULL,covData=NULL, # For SISO systems if(is.vector(respData)){ dim(respData) <- c(1,1,nrow(freq)) - dim(spec) <- c(1,1,nrow(freq)) + if(!is.null(spec)) dim(spec) <- c(1,1,nrow(freq)) } out <- list(response=respData,freq=freq,Ts=Ts,spec=spec,covData= |