1 files changed, 13 insertions, 0 deletions
diff --git a/R/nonparam.R b/R/nonparam.R
index cbea221..b3110ec 100644
--- a/R/nonparam.R
+++ b/R/nonparam.R
@@ -86,3 +86,16 @@ step <- function(model){
        main = title)
   abline(h=0)
 }
+
+#' Estimate frequency response with fixed frequency resolution using 
+#' spectral analysis
+#' 
+spa <- function(data,WinSize=NULL){
+  
+}
+
+#' Estimate empirical transfer function
+#' 
+etfe <- function(data){
+  
+}