Here is the script, and the detection history :
Unit S1 S2 S3 S4 S5 S6 S7 S8 S9 S10 S11 S12 S13 S14 S15 S16 S17 S18 S19 S20 S21 S22 S23 S24 S25 S26 S27 S28 S29
1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
2 0 0 0 1 1 0 0 0 1 1 1 1 1 0 1 1 0 1 1 0 1 0 0 0 0 0 0 0 0
3 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
5 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
6 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0
9 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
10 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0
11 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
12 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0
Script:
library(unmarked)
dados=read.delim("ocupacao_semana.csv", sep=";", header=TRUE)
amb=read.delim("variaveis.csv", sep=";", header=TRUE)
dados <- dados[ -c(1) ]
amb<-amb[ -c(1) ]
dados_oficial <- unmarkedFrameOccu(y = as.matrix(dados))
summary(dados_oficial)
m2 <- unmarkedFrameOccu(y = as.matrix(dados), siteCovs = amb)
summary(m2)
m1 <- occu(formula =~1~1, data = dados_oficial)
summary(m1)
predict(m1, newdata = data.frame(site = 1), type = "state")
predict(m1, newdata = data.frame(site = 1), type = "det")
boot::inv.logit(coef(m1)
boot::inv.logit(coef(m1)
mf <- occu(formula = ~X + Y ~X + A+ Y+P , data = m2, se=TRUE)
summary(mf)
predict(mf, newdata = data.frame(site = 1), type = "state")