# NOT RUN {
    H <- hyperframe(X=waterstriders)
    fit.Poisson <- mppm(X ~ 1, H)
    coef(fit.Poisson)
    # The single entry "(Intercept)" 
    # is the log of the fitted intensity of the Poisson process
    fit.Strauss <- mppm(X~1, H, Strauss(7))
    coef(fit.Strauss)
    # The two entries "(Intercept)" and "Interaction"
    # are respectively log(beta) and log(gamma)
    # in the usual notation for Strauss(beta, gamma, r)
    # Tweak data to exaggerate differences
    H$X[[1]] <- rthin(H$X[[1]], 0.3)
    # Model with random effects
    fitran <- mppm(X ~ 1, H, random=~1|id)
    coef(fitran)
# }
Run the code above in your browser using DataLab