sightability.table <- data.frame(VegCoverClass=1:5)
sight.beta <- c(4.2138, -1.5847)
sight.beta.cov <- matrix(c(0.7821634, -0.2820000,-0.2820000, 0.1114892), nrow=2)
sightability.table$detect.prob <- compute.detect.prob( sightability.table,
~VegCoverClass,
sight.beta,
sight.beta.cov)
sightability.table$SCF <- compute.SCF ( sightability.table,
~VegCoverClass,
sight.beta,
sight.beta.cov)
sightability.table
#"Note that the SCF != 1/detect.prob because of correction terms for covariance of beta.terms"
Run the code above in your browser using DataLab