# Poisson Point Process approach
data(pollution)
# \donttest{
f.hr <- fExtDep(x = PNS, method = "PPP", model = "HR",
par.start = rep(0.5, 3), trace = 2)
plot(f.hr, type = "angular",
labels = c(expression(PM[10]), expression(NO), expression(SO[2])),
cex.lab = 2)
plot(f.hr, type = "pickands",
labels = c(expression(PM[10]), expression(NO), expression(SO[2])),
cex.lab = 2) # may be slow
# }
# Pairwise composite likelihood
# \donttest{
set.seed(1)
data <- rExtDep(n = 300, model = "ET", par = c(0.6, 3))
f.et <- fExtDep(x = data, method = "Composite", model = "ET",
par.start = c(0.5, 1), trace = 2)
plot(f.et, type = "angular", cex.lab = 2)
# }
Run the code above in your browser using DataLab