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)
check.sightability.model.args( sightability.table,
~VegCoverClass,
sight.beta,
sight.beta.cov)
if (FALSE) {
check.sightability.model.args( sightability.table,
~VegCoverClass2,
sight.beta,
sight.beta.cov)
check.sightability.model.args( sightability.table,
~VegCoverClass,
sight.beta[1],
sight.beta.cov)
}
Run the code above in your browser using DataLab