quadmap (xi = 0.2, a = 4.0, n = 1000)
x <- quadmap () acf (x, 10)
Run the code above in your browser using DataLab