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