diff options
| author | Suraj Yerramilli | 2015-06-12 09:23:03 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-12 09:23:03 +0530 |
| commit | 024582b50524125cf942bd6e7279b8db1a6bc5d1 (patch) | |
| tree | 2eee173ab1088515b080af6e7ded2c0acaef438f /R | |
| parent | 5941a959d72f2e8e9ab80afbb077d268254f26f7 (diff) | |
| download | SysID-R-code-024582b50524125cf942bd6e7279b8db1a6bc5d1.tar.gz SysID-R-code-024582b50524125cf942bd6e7279b8db1a6bc5d1.tar.bz2 SysID-R-code-024582b50524125cf942bd6e7279b8db1a6bc5d1.zip | |
Minor Changes
Diffstat (limited to 'R')
| -rw-r--r-- | R/estpoly.R | 2 | ||||
| -rw-r--r-- | R/rbs.R | 1 | ||||
| -rw-r--r-- | R/rgs.R | 1 |
3 files changed, 3 insertions, 1 deletions
diff --git a/R/estpoly.R b/R/estpoly.R index 0671f01..79b6f5c 100644 --- a/R/estpoly.R +++ b/R/estpoly.R @@ -29,7 +29,7 @@ residplot <- function(model,newdata=NULL){ u <- newdata$input } - acorr <- acf(e,plot = F); ccorr <- ccf(as.numeric(u),e,plot = F) + acorr <- acf(e,plot = F); ccorr <- ccf(u[,1],e,plot = F) par(mfrow=c(2,1),mar=c(3,4,3,2)) plot(acorr,main="ACF of residuals") plot(ccorr,main="CCF between the input and residuals",ylab="CCF") @@ -1,3 +1,4 @@ +#' @export idin.rbs <- function(n,band,levels){ # Function to generate a random binary # signal of given frequency band and levels @@ -1,3 +1,4 @@ +#' @export idin.rgs <- function(n,band,var){ # Function to generate a random Gaussian # signal of given frequency band and variance |