# Things which should cause an error
require(spatstat)

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

# 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))
try(X0S   <- rmh(model=mod0S,start=list(n.start=80),
               control=list(p=1,nrep=nr,nverb=nv),verbose=FALSE))