gold <- rescale(murchison$gold, 1000, "km")
faults <- rescale(murchison$faults, 1000, "km")
distfault <- distfun(faults)
Nsim <- if(interactive()) 250 else 25
thresholdCI(gold, distfault, nsim=Nsim)
Run the code above in your browser using DataLab