n.site<-10
xy<-matrix(runif(2 * n.site, 0, 0.5), ncol = 2)
param<-c(0.5,1.5)
n.obs<-20
library(SpatialExtremes)
data<-t(rmaxstab(n.obs, xy, "whitmat",
nugget = 0, range = param[1], smooth = param[2]))
cl<-build.clusters.spatial(xy)
d<-maxstable.l.clusters(data,clusters=cl,
params=param,
category="normal",
spatial=list(sites=xy,family=spatialWhittleMatern))
Run the code above in your browser using DataLab