summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--R/idframe.R7
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"