species_list<-list(sp1=species1,sp2=species2)
sitecovs<-data.frame(Agricultural.areas=Agricultural.Areas,Sparsely.vegeteated.areas=Sparsely.vegetated.areas,Moors=Moors,Woodland=Woodland...)
umf<-unmarkedFrameOccuMulti(y=species_list,siteCovs= sitecovs,obsCovs=NULL)
occ_formulae<-c("~Agricultural.areas+Sparsely.veg.areas","~Agricultural.areas+Sparsely.veg.areas","~0")
det_formulae<-c("~1","~cov1")
fm<-occuMulti(det_formulae,occ_formulae,umf)
fm
Call:
occuMulti(detformulas = det_formulae, stateformulas = occ_formulae, data = umf)
Occupancy:
Estimate SE z P(>|z|)
[sp1] (Intercept) 1.043474 0.407 2.56559 0.0103
[sp1] Agricultural.areas 1.164735 0.954 1.22129 0.2220
[sp1] Sparsely.veg.areas 0.000682 0.320 0.00213 0.9983
[sp2] (Intercept) 0.735277 0.525 1.40081 0.1613
[sp2] Agricultural.areas 0.078542 0.453 0.17345 0.8623
[sp2] Sparsely.veg.areas -2.162241 0.956 -2.26242 0.0237
Detection:
Estimate SE z P(>|z|)
[sp1] (Intercept) -1.482 0.0939 -15.79 3.91e-56
[sp2] (Intercept) -2.209 0.1413 -15.63 4.40e-55
[sp2] cov1 -0.336 0.1690 -1.99 4.69e-02
AIC: 1476.78
occu approach:
umfsp1<-unmarkedFrameOccu(y=species1, siteCovs= sitecovs)
om<- occu(~1~Moors+Woodland,umfsp1)
Call:
occu(formula = ~1 ~ Moors + Woodland, data = om)
Occupancy:
Estimate SE z P(>|z|)
(Intercept) 1.043 0.365 2.86 0.00428
Moors -0.741 0.360 -2.06 0.03932
Woodland -0.866 0.416 -2.08 0.03739
Detection:
Estimate SE z P(>|z|)
-1.49 0.0947 -15.7 1.87e-55
AIC: 863.3132
--
You received this message because you are subscribed to the Google Groups "unmarked" group.
To unsubscribe from this group and stop receiving emails from it, send an email to unmarked+u...@googlegroups.com.
To view this discussion on the web visit https://groups.google.com/d/msgid/unmarked/59e9706e-4212-4894-bbe8-15da6e950765n%40googlegroups.com.