artfima(Ogden, likAlg = "Whittle")
#
set.seed(323277)
d0 <- 5/6
z <- artSim(n=1000, lambda=0.05, d=5/6)
artfima(z, fixd=d0) #constrained, exact
artfima(z, likAlg="Whittle", fixd=d0) #constrained, WhittleRun the code above in your browser using DataLab