Description Usage Arguments Details Value Author(s) Examples
Simulates an autoregressive process for a specified number of sets of observations. The first observation in each chain is drawn from an independent normal and subsequent observations are drawn from another normal with mean equal to the last observation.
1 | simRandWalk( nc=5, ni=rep( 1000, nc), init.var=1, seq.var=0.1)
|
nc |
the number of chains to simulate |
ni |
the length of each chain (must be a vector of length nc) |
init.var |
the variance to use for the initial random number generation (distribution will have mean zero) |
seq.var |
the variance to use in the sequential simulation |
The autoregressive process is simulated for each of nc chains. The first element of each chain is simulated from a normal with zero mean and variance init.var. The subsequent values are simulated from a random draw from a normal with mean equal to the previous observation and variance seq.var.
A matrix with sum( ni) rows and 2 columns. The first column has elements 1:nc and indicates the chain the the observation belongs to. The second column contains the random values
Scott D. Foster
1 2 3 4 5 6 | ni <- c( 30, 300, 3000)
simDat <- simRandWalk( nc=3, ni=ni, init.var=1, seq.var=0.1)
par( mfrow=c( 1, 3))
plot( 1:ni[1], simDat[1:ni[1],2], type='b', pch=20, ylab="Random Variable", xlab="Index", main="Chain 1")
plot( 1:ni[2], simDat[ni[1]+1:ni[2],2], type='b', pch=20, ylab="Random Variable", xlab="Index", main="Chain 2")
plot( 1:ni[3], simDat[sum(ni[1:2])+1:ni[3],2], type='b', pch=20, ylab="Random Variable", xlab="Index", main="Chain 3")
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.