#
# nausicaa (https://stats.stackexchange.com/users/190274/nausicaa), poisson glm to observe whether effects of artificial light on the number of bat passes in each location were significant, URL (version: 2018-03-09): https://stats.stackexchange.com/q/325334
bat_passes <- structure(list(
Location = structure(c(3L, 3L, 3L, 3L, 3L, 3L,
3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L,
5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L,
4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L), .Label = c("Forest",
"Grace", "Martinshaw", "Old", "Swithland"), class = "factor"),
Al.N = structure(c(2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L,
2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L,
2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L,
2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L,
1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L,
1L, 1L, 2L, 2L, 2L, 2L, 1L, 1L, 1L, 1L), .Label = c("Dark",
"light"), class = "factor"),
Buzzes = c(2L, 4L, 3L, 2L, 88L,
68L, 1L, 63L, 3L, 1L, 20L, 15L, 24L, 24L, 17L, 15L, 0L, 0L,
2L, 6L, 8L, 3L, 5L, 7L, 6L, 2L, 2L, 2L, 7L, 4L, 5L, 4L, 7L,
10L, 5L, 0L, 5L, 1L, 4L, 3L, 1L, 0L, 0L, 2L, 28L, 32L, 2L,
21L, 2L, 2L, 6L, 3L, 17L, 22L, 31L, 29L, 0L, 9L, 3L, 3L,
2L, 1L, 13L, 11L, 14L, 9L, 31L, 16L, 2L, 1L, 0L, 2L, 18L,
29L, 22L, 3L, 18L, 2L, 15L, 6L),
Passes = c(37L, 48L, 34L,
28L, 279L, 216L, 7L, 198L, 29L, 17L, 154L, 120L, 68L, 134L,
157L, 144L, 5L, 19L, 45L, 67L, 72L, 48L, 51L, 58L, 48L, 23L,
25L, 20L, 39L, 25L, 23L, 34L, 53L, 57L, 48L, 26L, 57L, 25L,
17L, 29L, 15L, 12L, 9L, 24L, 61L, 79L, 8L, 84L, 40L, 46L,
55L, 46L, 50L, 98L, 104L, 99L, 24L, 93L, 74L, 54L, 15L, 39L,
45L, 61L, 123L, 150L, 376L, 104L, 24L, 35L, 15L, 32L, 125L,
156L, 107L, 47L, 142L, 51L, 59L, 35L),
Date = structure(c(4L,
19L, 35L, 13L, 2L, 21L, 34L, 15L, 39L, 16L, 33L, 10L, 37L,
17L, 32L, 11L, 14L, 30L, 6L, 25L, 12L, 31L, 6L, 27L, 7L,
24L, 38L, 18L, 5L, 26L, 36L, 20L, 9L, 28L, 3L, 22L, 8L, 29L,
1L, 23L, 4L, 19L, 35L, 13L, 2L, 21L, 34L, 15L, 39L, 16L,
33L, 10L, 37L, 17L, 32L, 11L, 14L, 30L, 6L, 25L, 12L, 31L,
6L, 27L, 7L, 24L, 38L, 18L, 5L, 26L, 36L, 20L, 9L, 28L, 3L,
22L, 8L, 29L, 1L, 23L), .Label = c("01/09/2017", "02/08/2017",
"02/09/2017", "03/08/2017", "04/08/2017", "04/09/2017", "05/08/2017",
"06/08/2017", "07/08/2017", "07/09/2017", "08/09/2017", "09/08/2017",
"09/09/2017", "10/08/2017", "10/09/2017", "11/08/2017", "12/08/2017",
"12/09/2017", "13/08/2017", "13/09/2017", "14/08/2017", "14/09/2017",
"15/09/2017", "16/08/2017", "16/09/2017", "17/08/2017", "17/09/2017",
"18/08/2017", "19/08/2017", "21/08/2017", "22/08/2017", "25/08/2017",
"26/08/2017", "27/08/2017", "28/08/2017", "29/08/2017", "30/07/2017",
"30/08/2017", "31/07/2017"), class = "factor")),
.Names = c("Location", "Al.N", "Buzzes", "Passes", "Date"),
class = "data.frame", row.names = c(NA, -80L))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.