From 7e3f663b58538b8a7a68fb59d4c9df6b034831cd Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Tue, 23 Feb 2016 15:13:16 +0530
Subject: support for SISO systems

---
 R/idframe.R | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'R')

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"
-- 
cgit