summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSuraj Yerramilli2016-01-02 17:38:28 +0530
committerSuraj Yerramilli2016-01-02 17:38:28 +0530
commit2f499fe7a104cfc34b26f1e606585c08a90f1204 (patch)
tree5b64f435775a9ec9af780ad0a41dd4d58d06a1aa
parente38e89bf491b6e83e8e81732f3ce135f20081229 (diff)
downloadSysID-R-code-2f499fe7a104cfc34b26f1e606585c08a90f1204.tar.gz
SysID-R-code-2f499fe7a104cfc34b26f1e606585c08a90f1204.tar.bz2
SysID-R-code-2f499fe7a104cfc34b26f1e606585c08a90f1204.zip
removing require statements
-rw-r--r--R/idframe.R1
-rw-r--r--R/preprocess.R1
2 files changed, 0 insertions, 2 deletions
diff --git a/R/idframe.R b/R/idframe.R
index 367b013..37df6bf 100644
--- a/R/idframe.R
+++ b/R/idframe.R
@@ -154,7 +154,6 @@ idfrd <- function(response,freq,Ts){
#'
#' @export
plot.idfrd <- function(x){
- require(ggplot2);require(reshape2);require(signal)
mag <- 20*log10(Mod(x$resp))
phase <- 180/pi*signal::unwrap(Arg(x$resp))
diff --git a/R/preprocess.R b/R/preprocess.R
index 4a179ef..0d7fd82 100644
--- a/R/preprocess.R
+++ b/R/preprocess.R
@@ -135,7 +135,6 @@ predict.detrend <- function(model,newdata=NULL,...){
#' @importFrom zoo na.approx
#' @export
misdata <- function(data){
- require(zoo)
f <- function(var,start,end,Ts){
time_range <- range(time(var))