diff options
| author | Suraj Yerramilli | 2016-02-23 15:22:33 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-02-23 15:22:33 +0530 |
| commit | d398e7a820ade3a577a4d6c5c57e83e518468c82 (patch) | |
| tree | 6f9331714d3343905cb89cf9cbbc3fe0011a2f60 | |
| parent | a25095eadb843c6bf0e1dec5f5646081ab75cf3b (diff) | |
| download | SysID-R-code-d398e7a820ade3a577a4d6c5c57e83e518468c82.tar.gz SysID-R-code-d398e7a820ade3a577a4d6c5c57e83e518468c82.tar.bz2 SysID-R-code-d398e7a820ade3a577a4d6c5c57e83e518468c82.zip | |
correcting errors
| -rw-r--r-- | R/idframe.R | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R index 6ad94f3..527fa21 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -143,12 +143,11 @@ deltat.idframe <- function(data){ idfrd <- function(respData,freq,Ts,spec=NULL,covData=NULL, noiseCov=NULL){ # For SISO systems - if(is.vector(respData)||dim(respData)[1]==nrow(freq)){ + if(is.vector(respData)){ 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" |