diff options
author | Suraj Yerramilli | 2016-02-27 14:56:25 +0530 |
---|---|---|
committer | Suraj Yerramilli | 2016-02-27 14:56:25 +0530 |
commit | 1a349f52502044410b9523ecbc4762571a9267f8 (patch) | |
tree | 8fe7c8dc800bec215bbec2f6dbe988ca866af54d | |
parent | ece6a9f47a7d73061806f2d7e0788be86aa73688 (diff) | |
download | SysID-R-code-1a349f52502044410b9523ecbc4762571a9267f8.tar.gz SysID-R-code-1a349f52502044410b9523ecbc4762571a9267f8.tar.bz2 SysID-R-code-1a349f52502044410b9523ecbc4762571a9267f8.zip |
Corrections in sim example
-rw-r--r-- | R/sim.R | 5 | ||||
-rw-r--r-- | man/sim.Rd | 5 |
2 files changed, 6 insertions, 4 deletions
@@ -21,8 +21,9 @@ #' #' @examples #' # ARX Model -#' u <- rnorm(200,sd=1) -#' model <- idpoly(A=c(1,-1.5,0.7),B=c(0.8,-0.25),ioDelay=1) +#' u <- idinput(300,"rgs") +#' model <- idpoly(A=c(1,-1.5,0.7),B=c(0.8,-0.25),ioDelay=1, +#' noiseVar=0.1) #' y <- sim(model,u,addNoise=T) #' #' @export @@ -33,8 +33,9 @@ include support for MIMO systems. } \examples{ # ARX Model -u <- rnorm(200,sd=1) -model <- idpoly(A=c(1,-1.5,0.7),B=c(0.8,-0.25),ioDelay=1) +u <- idinput(300,"rgs") +model <- idpoly(A=c(1,-1.5,0.7),B=c(0.8,-0.25),ioDelay=1, +noiseVar=0.1) y <- sim(model,u,addNoise=T) } |