# Import data
setwd("~/Jéssica/i/Ocupacao/3dias")
mtridac.data <- read.csv("detec3dias.csv", row.names = 1, header = T, na.strings = "-")
str(mtridac.data)
canis.data <- read.csv("canis3dias.csv", row.names = 1, header = T, na.strings = "-")
str(canis.data)
S <- 2 # number of species
M <- 58 #number of sites
J <- 45 #number of occ
y <- list(as.matrix(mtridac.data),
as.matrix(canis.data))
names(y) <- c("anteater", "dog")
siteCovs <- read.csv("sitecov500m.csv", row.names = 1, header = T)
obsCovs <- read.csv("obscov3dias.csv", row.names = 1, header = T)
library(unmarked)
umf <- unmarkedFrameOccuMulti(y=y, siteCovs=siteCovs,
obsCovs=list(temp=obsCovs[,c("temp1", "temp2", "temp3", "temp4", "temp5",
"temp6", "temp7", "temp8", "temp9", "temp10",
"temp11", "temp12", "temp13", "temp14", "temp15",
"temp16", "temp17", "temp18", "temp19", "temp20",
"temp21", "temp22", "temp23", "temp24", "temp25",
"temp26", "temp27", "temp28", "temp29", "temp30",
"temp31", "temp32", "temp33", "temp34", "temp35",
"temp36", "temp37", "temp38", "temp39", "temp40",
"temp41", "temp42", "temp43", "temp44", "temp45")],
day=obsCovs[,c("day1", "day2", "day3", "day4", "day5",
"day6", "day7", "day8", "day9", "day10",
"day11", "day12", "day13", "day14", "day15",
"day16", "day17", "day18", "day19", "day20",
"day21", "day22", "day23", "day24", "day25",
"day26", "day27", "day28", "day29", "day30",
"day31", "day32", "day33", "day34", "day35",
"day36", "day37", "day38", "day39", "day40",
"day41", "day42", "day43", "day44", "day45")]))
umf # look at data
summary(umf) # summarize
plot(umf) # visualize
Until here I got it without Error. But when I try to fit the models, this Error is showed:
null <- occuMulti(~1, ~1, umf, match() ) # fit a model