# Things which should cause an error
require(spatstat)

if(!exists("nv"))
  nv <- 0
if(!exists("nr"))
  nr   <- 1e5

if(!exists("rmhErrors"))
  rmhErrors <- FALSE

if(rmhErrors) {
   # Strauss with zero intensity and p = 1
  cat("\nStrauss with zero intensity\n")
  mod0S <- list(cif="strauss",par=c(beta=0,gamma=0.6,r=0.7), w = square(3))
  X0S   <- rmh(model=mod0S,start=list(n.start=80),
               control=list(p=1,nrep=nr,nverb=nv),verbose=FALSE)
}