diff options
| author | Suraj Yerramilli | 2016-12-15 21:38:58 -0600 |
|---|---|---|
| committer | Suraj Yerramilli | 2016-12-15 21:38:58 -0600 |
| commit | eb848619e1de4b7698a385d10e3bbc37eef61550 (patch) | |
| tree | 9c660a9f211455ec9dcac3ff5bdccdb252f77017 | |
| parent | b22506d8c28f0c2416a70a0da194ed214078d627 (diff) | |
| download | SysID-R-code-eb848619e1de4b7698a385d10e3bbc37eef61550.tar.gz SysID-R-code-eb848619e1de4b7698a385d10e3bbc37eef61550.tar.bz2 SysID-R-code-eb848619e1de4b7698a385d10e3bbc37eef61550.zip | |
correcting a few examples
| -rw-r--r-- | R/rarx.R | 6 | ||||
| -rw-r--r-- | man/rarx.Rd | 6 |
2 files changed, 6 insertions, 6 deletions
@@ -33,9 +33,9 @@ #' Gp2 <- idpoly(c(1,-1.2,0.35),2.5,ioDelay=2,noiseVar = 0.1) #' uk = idinput(2044,'prbs',c(0,1/4)); N = length(uk); #' N1 = round(0.35*N); N2 = round(0.4*N); N3 = N-N1-N2; -#' yk1 <- sim(Gp1,uk[1:N1],addNoise = T) -#' yk2 <- sim(Gp2,uk[N1+1:N2],addNoise = T) -#' yk3 <- sim(Gp1,uk[N1+N2+1:N3],addNoise = T) +#' yk1 <- sim(Gp1,uk[1:N1],addNoise = TRUE) +#' yk2 <- sim(Gp2,uk[N1+1:N2],addNoise = TRUE) +#' yk3 <- sim(Gp1,uk[N1+N2+1:N3],addNoise = TRUE) #' yk <- c(yk1,yk2,yk3) #' z <- idframe(yk,uk,1) #' g(theta,yhat) %=% rarx(z,c(2,1,2)) diff --git a/man/rarx.Rd b/man/rarx.Rd index 5e067dd..1d0bac4 100644 --- a/man/rarx.Rd +++ b/man/rarx.Rd @@ -37,9 +37,9 @@ Gp1 <- idpoly(c(1,-0.9,0.2),2,ioDelay=2,noiseVar = 0.1) Gp2 <- idpoly(c(1,-1.2,0.35),2.5,ioDelay=2,noiseVar = 0.1) uk = idinput(2044,'prbs',c(0,1/4)); N = length(uk); N1 = round(0.35*N); N2 = round(0.4*N); N3 = N-N1-N2; -yk1 <- sim(Gp1,uk[1:N1],addNoise = T) -yk2 <- sim(Gp2,uk[N1+1:N2],addNoise = T) -yk3 <- sim(Gp1,uk[N1+N2+1:N3],addNoise = T) +yk1 <- sim(Gp1,uk[1:N1],addNoise = TRUE) +yk2 <- sim(Gp2,uk[N1+1:N2],addNoise = TRUE) +yk3 <- sim(Gp1,uk[N1+N2+1:N3],addNoise = TRUE) yk <- c(yk1,yk2,yk3) z <- idframe(yk,uk,1) g(theta,yhat) \%=\% rarx(z,c(2,1,2)) |