29.01.2015 Views

Analysing spatial point patterns in R - CSIRO

Analysing spatial point patterns in R - CSIRO

Analysing spatial point patterns in R - CSIRO

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

108 Check<strong>in</strong>g a fitted Poisson model<br />

These residuals are closely related to the residuals for quadrat counts that were used above.<br />

Tak<strong>in</strong>g the set B to be one of our quadrats, the ‘observed’ quadrat count is n(x ∩ B). The<br />

‘expected’ quadrat count is ̂λarea(B) if the model is CSR, or more generally ∫ B ̂λ(u)du if the<br />

model is an <strong>in</strong>homogeneous Poisson process. Hence the ‘raw residual’ is observed -- expected<br />

= n(x ∩ B) − ∫ B ̂λ(u)du.<br />

16.2.2 Residual measure<br />

Equation (11) def<strong>in</strong>es the total residual for any region B, large or small.<br />

Intuitively the residuals can be visualised as an electric charge, with unit positive charge at<br />

each data <strong>po<strong>in</strong>t</strong>, and a diffuse negative charge at all other locations u, with density ˆλ(u). If the<br />

model is true, then these charges should approximately cancel.<br />

If we’d like to visualise this electric charge, one way is to plot the observed <strong>po<strong>in</strong>t</strong>s and the<br />

fitted <strong>in</strong>tensity function together:<br />

> data(bei)<br />

> fit plot(predict(fit))<br />

> plot(bei, add = TRUE, pch = "+")<br />

predict(fit)<br />

++<br />

++ +<br />

+<br />

++<br />

+<br />

++ +<br />

+++<br />

++<br />

+<br />

+++<br />

++ ++<br />

+<br />

++<br />

++ ++ ++ +<br />

+ ++ + ++++ ++<br />

++<br />

++<br />

+<br />

+ ++<br />

++ + +++<br />

+ + +<br />

+++<br />

+ ++ ++<br />

+<br />

+<br />

+++<br />

++ +<br />

+<br />

+<br />

++<br />

++<br />

++<br />

+ ++ +<br />

++ ++<br />

++<br />

++<br />

+++++ + ++ ++ + ++<br />

+++<br />

++ +<br />

++<br />

++<br />

+<br />

++<br />

++ ++ ++ ++ +<br />

++ ++ +<br />

+ + +<br />

++ + ++ ++++ + ++<br />

++<br />

+<br />

++<br />

+ ++<br />

++ +<br />

++ ++<br />

++<br />

++++ ++<br />

+++<br />

++ ++ ++<br />

++<br />

+ +++<br />

++ ++ + ++<br />

+<br />

++<br />

+++++ +<br />

++ ++<br />

++<br />

++ +<br />

+++<br />

++ + ++<br />

+ ++<br />

+ ++ +++<br />

++ +<br />

+++<br />

++<br />

++ +<br />

+<br />

+<br />

+ +<br />

+ +<br />

++<br />

+<br />

++ ++<br />

+++<br />

+++<br />

+++<br />

++<br />

+<br />

+++ ++++ +<br />

++<br />

+<br />

+ + + ++ ++ +<br />

++<br />

+<br />

+<br />

+<br />

++ ++ +<br />

+ ++++ +<br />

+ +<br />

+ +<br />

+++ ++ ++ + +<br />

+<br />

+ ++++ + + +<br />

+ + +<br />

++ +<br />

+ + +<br />

+<br />

+<br />

+<br />

+<br />

+ +<br />

+ +<br />

++<br />

+<br />

+++<br />

+<br />

+ ++<br />

+<br />

+<br />

+ ++ + +<br />

+ +<br />

+<br />

+ +<br />

+ +<br />

+<br />

+ ++ +<br />

+<br />

++ ++<br />

+<br />

+<br />

+<br />

+ +<br />

+<br />

+<br />

++<br />

+<br />

++<br />

+<br />

++<br />

+<br />

+++ ++<br />

+ ++<br />

+<br />

+++ ++ + +<br />

++ ++++<br />

++ + + +++<br />

+<br />

+<br />

++<br />

++<br />

++<br />

+<br />

+<br />

+ + +++ ++ +<br />

+ + + ++<br />

++<br />

++++ +<br />

++<br />

++<br />

++ ++ ++ +<br />

++ + +++<br />

+<br />

++<br />

++ ++<br />

+ ++ +<br />

++<br />

+<br />

++ ++ +<br />

+<br />

++ + ++<br />

+++<br />

++ ++ ++<br />

+<br />

+ + +<br />

+<br />

+++<br />

+<br />

+++<br />

++ ++ ++ + +<br />

++<br />

+<br />

++<br />

+<br />

++<br />

+<br />

+ ++<br />

+ + +<br />

+<br />

+ +<br />

+<br />

+<br />

+ + + +<br />

+ +<br />

+<br />

++ + + + +<br />

+<br />

+ + +<br />

+<br />

+ +<br />

+<br />

+<br />

++<br />

++++<br />

+<br />

+++ ++<br />

++<br />

+++ +++<br />

++<br />

++ +<br />

+ +<br />

+ + +++<br />

+ +<br />

++ ++<br />

+<br />

++ +<br />

+<br />

+ ++<br />

+<br />

++ ++ +<br />

++ ++<br />

++ + + + +++ ++<br />

+ +<br />

++++ + + +<br />

+<br />

+<br />

+<br />

++ + ++++++ +++ + ++<br />

+ ++ + +++<br />

+++<br />

+<br />

++ +<br />

+++ +++ + +<br />

+<br />

++<br />

++<br />

++<br />

++ + + +<br />

+<br />

+ +<br />

++<br />

+ + +<br />

+<br />

++<br />

+<br />

+<br />

+<br />

+ + + + ++<br />

+<br />

+<br />

+ +<br />

+ ++ +<br />

+<br />

+ +<br />

+ +<br />

+<br />

+ + +<br />

+<br />

++++<br />

+<br />

+<br />

+<br />

+ +<br />

+<br />

++<br />

+<br />

+<br />

+ ++ + +<br />

+<br />

+ ++<br />

+ +<br />

+<br />

++<br />

+ +<br />

+ + + +<br />

+<br />

+ +<br />

+<br />

++ +<br />

+ ++<br />

+<br />

+<br />

++<br />

+++<br />

++++ ++<br />

+<br />

++<br />

++<br />

++<br />

+++ +<br />

++<br />

+<br />

+++ +++ ++ +<br />

+<br />

+<br />

+<br />

+<br />

+<br />

+ +<br />

++<br />

++<br />

+<br />

+<br />

++ + + +<br />

+ +<br />

+ +++ ++ ++<br />

++<br />

++ ++++ +++<br />

+<br />

+<br />

++<br />

+<br />

+++<br />

++ + + ++ ++<br />

++ ++ +++<br />

++ +<br />

++<br />

+<br />

++ ++<br />

++ +<br />

+ +<br />

+<br />

++<br />

+++ ++ ++ +++<br />

++ ++++<br />

++<br />

++<br />

++<br />

+<br />

++<br />

+ ++ +<br />

++<br />

+ ++<br />

+ +++<br />

+ + +++<br />

++ ++ + + + +<br />

+ +<br />

+ ++ +<br />

+ +<br />

+ + ++ +<br />

+<br />

+<br />

+<br />

+<br />

+<br />

+ ++<br />

+<br />

+<br />

+<br />

+ +++ +<br />

++<br />

+<br />

++ + + +<br />

+<br />

+<br />

++<br />

+++<br />

++++<br />

++ +<br />

+<br />

+ ++ + + +<br />

+<br />

+ +<br />

+ + ++ +<br />

+<br />

+<br />

+ + +<br />

+ + + + ++<br />

+<br />

+ +<br />

+<br />

+ + + + +<br />

+<br />

+ +<br />

+<br />

+ + +<br />

+<br />

+ + ++ + + +<br />

++ +++<br />

+ + +<br />

+ + +<br />

++ +<br />

+ +<br />

+ +<br />

+ + + +<br />

0.004 0.006 0.008 0.01 0.012<br />

Each data <strong>po<strong>in</strong>t</strong> should be visualised as a charge of +1, while the colour image <strong>in</strong>dicates a<br />

negative charge density. If the model is true then these positive and negative charges should<br />

even out to zero.<br />

16.2.3 Smoothed residuals<br />

A more useful way to visualise the residuals is to smooth them.<br />

> data(bei)<br />

> fitx diagnose.ppm(fitx, which = "smooth")<br />

Smoothed raw residuals<br />

0.006<br />

0.005<br />

0.003<br />

0.004<br />

0.003<br />

0.002<br />

0.001<br />

0<br />

−0.001<br />

−0.002<br />

−0.003<br />

−0.004<br />

−0.003<br />

−0.002<br />

−0.001<br />

0<br />

0.001<br />

0.003<br />

0.002<br />

0.002<br />

0.001<br />

0<br />

−0.001<br />

0.004<br />

0.005<br />

0.006<br />

Copyright<strong>CSIRO</strong> 2010

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!