out <- fekete()
plot(out, lwd = 2, which = 1:20)
# reference run compared with output at end of interval for first 7 components
out1 <- fekete(times = c(0, 1000))
max(abs(out1[nrow(out1),-1] - reference("fekete")))
Run the code above in your browser using DataLab