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