From e7da35a333067e4bdad23e82e002e4c499afc3b6 Mon Sep 17 00:00:00 2001
From: Suraj Yerramilli
Date: Fri, 4 Sep 2015 10:07:15 +0530
Subject: Minor correction in plot idfrd

---
 R/idframe.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/idframe.R b/R/idframe.R
index 5a0b338..42fea24 100644
--- a/R/idframe.R
+++ b/R/idframe.R
@@ -153,7 +153,7 @@ plot.idfrd <- function(x){
   require(ggplot2);require(reshape2);require(signal)
 
   mag <- 20*log10(Mod(x$resp))
-  phase <- -360/2/pi*unwrap(Arg(x$resp))
+  phase <- unwrap(Arg(x$resp))
   sys_df <- data.frame(Frequency = x$freq,Gain = mag,Phase = phase)
   melted_sys_df <- melt(sys_df, id.var = c("Frequency"))
   
-- 
cgit