RFoptions(seed=0)
model <- RMstp(xi2 = RMrotat(phi= -2 * pi, speed=1),
phi = RMwhittle(nu = 1),
M=matrix(nc=3, rep(0, 9)),
S=RMetaxxa(E=rep(1, 3), alpha = -2 * pi,
A=t(matrix(nc=3, c(2, 0, 0, 1, 1 , 0, 0, 0, 0))))
)
x <- seq(0, 10, if (interactive()) 0.7 else 5)
plot(RFsimulate(model, x=x, y=x, z=x))
RFoptions(seed=NA)
Run the code above in your browser using DataLab