R/DEnvelope.R

In dbmss: Distance-Based Measures of Spatial Structures

DEnvelope <-
function(X, r = NULL, NumberOfSimulations = 100, Alpha = 0.05, 
         Cases, Controls, Intertype = FALSE, Global = FALSE, verbose = interactive()) {

  CheckdbmssArguments()
  
  # The only null hypothesis is random labelling (equivalently, random location)
  SimulatedPP <- expression(rRandomLocation(X, CheckArguments = FALSE))

  # local envelope, keep extreme values for lo and hi (nrank=1)
  Envelope <- envelope(X, fun=Dhat, nsim=NumberOfSimulations, nrank=1,
                       r=r, Cases=Cases, Controls=Controls, Intertype=Intertype, 
                       CheckArguments = FALSE,
                       simulate=SimulatedPP, verbose=verbose, savefuns=TRUE
                       )
  attr(Envelope, "einfo")$H0 <- "Random Location"
  
  # Calculate confidence intervals
  Envelope <- FillEnvelope(Envelope, Alpha, Global)
  # Return the envelope
  return (Envelope)
}