# Create unmarkedFrame
data(frogs)
pferUMF <- unmarkedFrameOccu(pfer.bin)
siteCovs(pferUMF) <- data.frame(sitevar1 = rnorm(numSites(pferUMF)))
obsCovs(pferUMF) <- data.frame(obsvar1 = rnorm(numSites(pferUMF) * obsNum(pferUMF)))
# Get correct sequence of starting values for model
getStarts(occu(~ obsvar1 ~ 1, pferUMF))
Run the code above in your browser using DataLab