summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSuraj Yerramilli2016-05-15 23:59:39 +0530
committerSuraj Yerramilli2016-05-15 23:59:39 +0530
commit01ffcb39a04d4999b2c1e5974cb56b674c7b9cce (patch)
treeb4b5e13e3f91cf6e1d09b0a96b2a9df9c69b1e3c
parent4d369b4a7a7ee0ad374831005ec5584460157d70 (diff)
downloadSysID-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.R2
-rw-r--r--R/sim.R2
-rw-r--r--man/iv4.Rd2
-rw-r--r--man/sim.Rd2
4 files changed, 4 insertions, 4 deletions
diff --git a/R/iv.R b/R/iv.R
index abc732e..47fb187 100644
--- a/R/iv.R
+++ b/R/iv.R
@@ -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))
#'
diff --git a/R/sim.R b/R/sim.R
index ea1f225..2efa74e 100644
--- a/R/sim.R
+++ b/R/sim.R
@@ -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")
diff --git a/man/iv4.Rd b/man/iv4.Rd
index 45755fc..77b794c 100644
--- a/man/iv4.Rd
+++ b/man/iv4.Rd
@@ -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))
diff --git a/man/sim.Rd b/man/sim.Rd
index 9aa1d11..a40ba29 100644
--- a/man/sim.Rd
+++ b/man/sim.Rd
@@ -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)
}