diff options
| author | Suraj Yerramilli | 2016-05-21 19:03:55 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-05-21 19:03:55 +0530 |
| commit | 0b25aed6c241ec05c0501165c9a4fc53772e4012 (patch) | |
| tree | f7f5d006f728883a68a39180757be460b20f503c /R/idframe.R | |
| parent | ae04e46e0ba498fc9e64debc892a0beeec19b275 (diff) | |
| download | SysID-R-code-0b25aed6c241ec05c0501165c9a4fc53772e4012.tar.gz SysID-R-code-0b25aed6c241ec05c0501165c9a4fc53772e4012.tar.bz2 SysID-R-code-0b25aed6c241ec05c0501165c9a4fc53772e4012.zip | |
loading ggplot2 namespace
Diffstat (limited to 'R/idframe.R')
| -rw-r--r-- | R/idframe.R | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/R/idframe.R b/R/idframe.R index f38b94e..c0fc2bf 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -66,6 +66,7 @@ idframe <- function(output,input=NULL,Ts = 1,start=0,end=NULL, #' #' @export plot.idframe <- function(x,col="steelblue",lwd=1,main=NULL,size=12){ + loadNamespace("ggplot2") if(nInputSeries(x)==0){ data <- outputData(x) } else{ @@ -191,6 +192,7 @@ idfrd <- function(respData,freq,Ts,spec=NULL,covData=NULL, #' #' @export plot.idfrd <- function(x,col="steelblue",lwd=1){ + loadNamespace("ggplot2") nfreq <- dim(x$freq)[1] mag <- 20*log10(Mod(x$resp)) nout <- dim(mag)[1]; nin <- dim(mag)[2] |