diff options
author | Suraj Yerramilli | 2016-05-15 23:59:39 +0530 |
---|---|---|
committer | Suraj Yerramilli | 2016-05-15 23:59:39 +0530 |
commit | 01ffcb39a04d4999b2c1e5974cb56b674c7b9cce (patch) | |
tree | b4b5e13e3f91cf6e1d09b0a96b2a9df9c69b1e3c | |
parent | 4d369b4a7a7ee0ad374831005ec5584460157d70 (diff) | |
download | SysID-R-code-01ffcb39a04d4999b2c1e5974cb56b674c7b9cce.tar.gz SysID-R-code-01ffcb39a04d4999b2c1e5974cb56b674c7b9cce.tar.bz2 SysID-R-code-01ffcb39a04d4999b2c1e5974cb56b674c7b9cce.zip |
correcting sim syntax in documentation
-rw-r--r-- | R/iv.R | 2 | ||||
-rw-r--r-- | R/sim.R | 2 | ||||
-rw-r--r-- | man/iv4.Rd | 2 | ||||
-rw-r--r-- | man/sim.Rd | 2 |
4 files changed, 4 insertions, 4 deletions
@@ -135,7 +135,7 @@ ivcompute <- function(z,x,order,filt=NULL){ #' @examples #' mod_dgp <- idpoly(A=c(1,-0.5),B=c(0.6,-.2),C=c(1,0.6),ioDelay = 2,noiseVar = 0.1) #' u <- idinput(400,"prbs") -#' y <- sim(mod_dgp,u,T) +#' y <- sim(mod_dgp,u,addNoise=TRUE) #' z <- idframe(y,u) #' mod_iv4 <- iv4(z,c(1,2,2)) #' @@ -24,7 +24,7 @@ #' 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) +#' y <- sim(model,u,addNoise=TRUE) #' #' @export sim <- function(model,input,addNoise = F,innov=NULL,seed=NULL) UseMethod("sim") @@ -40,7 +40,7 @@ to the IV function with the same instrument filters as in the second stage. \examples{ mod_dgp <- idpoly(A=c(1,-0.5),B=c(0.6,-.2),C=c(1,0.6),ioDelay = 2,noiseVar = 0.1) u <- idinput(400,"prbs") -y <- sim(mod_dgp,u,T) +y <- sim(mod_dgp,u,addNoise=TRUE) z <- idframe(y,u) mod_iv4 <- iv4(z,c(1,2,2)) @@ -36,7 +36,7 @@ include support for MIMO systems. 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) +y <- sim(model,u,addNoise=TRUE) } |