Diego J. Lizcano, Ph.D.
Unillanos, Villavicencio
visita 1 | visita 2 | visita 3 | visita 4 | |
---|---|---|---|---|
sitio 1 | 1 | 0 | 0 | 1 |
sitio 2 | 0 | 0 | 0 | 0 |
sitio 3 | 1 | 1 | 0 | 0 |
sitio X | 0 | 0 | 0 | 0 |
Las tres tablas se enlazan en un objeto especial llamado unmarkedFrame
umf <- unmarkedFrame (y = detections,
siteCovs = sitedata,
obsCovs = list(wind=viento, date=fecha))
Bajar el codigo
Bajar los datos e instalar en la carpeta data
vinieta de unmarkedFrameOccu
# Fake data
R <- 4 # number of sites
J <- 3 # number of visits
y <- matrix(c(1,1,0,0,0,0,1,1,1,1,0,1), nrow=R, ncol=J, byrow=TRUE)
site.covs <- data.frame(x1=1:4, x2=factor(c('A','B','A','B')))
obs.covs <- list(
x3 = matrix(c(-1,0,1,-2,0,0,-3,1,0,0,0,0), nrow=R, ncol=J, byrow=TRUE),
x4 = matrix(c(
'a','b','c',
'd','b','a',
'a','a','c',
'a','b','a'), nrow=R, ncol=J, byrow=TRUE))
umf <- unmarkedFrameOccu(y=y, siteCovs=site.covs, obsCovs=obs.covs) # organize data
umf # look at data
summary(umf) # summarize
fm <- occu(~1 ~1, umf) # fit a model