pompExample(ou2)
good <- spect(
ou2,
vars=c("y1","y2"),
kernel.width=3,
detrend="mean",
nsim=500
)
summary(good)
plot(good)
ou2.bad <- ou2
coef(ou2.bad,c("x1.0","x2.0","alpha.1","alpha.4")) <- c(0,0,0.1,0.2)
bad <- spect(
ou2.bad,
vars=c("y1","y2"),
kernel.width=3,
detrend="mean",
nsim=500
)
summary(bad)
plot(bad)
Run the code above in your browser using DataLab