diff options
| -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" |