library(CoSMoS)
p <- actpnts(margdist = "paretoII",
margarg = list(scale = 1, shape = .3),
p0 = 0)
fit <- fitactf(p)
plot(fit)
plot(fit, main = "Pareto type II\nautocorrelation transformation")
Run the code above in your browser using DataLab