data(KNMIdata)
locations <- KNMIdata$loc
pairIndices <- selectPairIndices(locations, maxDistance = 0.5)
Mestimator(KNMIdata$data, locations, pairIndices, k = 60, model="BR",
iterate=FALSE, covMat = FALSE)$theta
Run the code above in your browser using DataLab