data(waterstriders)
    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)Run the code above in your browser using DataLab