#Lab Three

Question 1

plot <- rpoispp(500)
plot(plot)

OR

rpoispp(500) |>
  plot()

Question 2

By including the add = T, you add contour lines that includes a legend to the graph.

Question 3

The numbers show the number of observations within each cell.

Question 4

quadrat.test(rpoispp(500), nx = 20, ny = 20)

quadrat.test(rpoispp(100), nx = 20, ny = 20) quadrat.test(rpoispp(500), nx = 5, ny = 5) quadrat.test(rpoispp(1000), nx = 15, ny = 15)

Question 4 Results
Iteration Number of Points Number of Grid Cells P-values Interpret P-values
1 100 400 0.4313 This p-value is not statistically significant meaning we cannot reject the null hypothesis.
2 500 25 0.6908 This p-value is not statistically significant meaning we cannot reject the null hypothesis.
3 1000 225 0.1747 This p-value is not statistically significant meaning we cannot reject the null hypothesis.

##Question 5