diff options
| author | Suraj Yerramilli | 2015-09-04 10:07:15 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-09-04 10:07:15 +0530 |
| commit | e7da35a333067e4bdad23e82e002e4c499afc3b6 (patch) | |
| tree | 2175e0c1b4708c0f1ed14cc0fd5754802539ef3c | |
| parent | 5533e586b622896ceb5dc4127998468fc630ffbc (diff) | |
| download | SysID-R-code-e7da35a333067e4bdad23e82e002e4c499afc3b6.tar.gz SysID-R-code-e7da35a333067e4bdad23e82e002e4c499afc3b6.tar.bz2 SysID-R-code-e7da35a333067e4bdad23e82e002e4c499afc3b6.zip | |
Minor correction in plot idfrd
| -rw-r--r-- | R/idframe.R | 2 |
1 files changed, 1 insertions, 1 deletions
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")) |