View source: R/model_quality_stats.R
modelqualstats | R Documentation |
Compute Model Quality Information
modelqualstats( fit, holdoutXocc, holdoutXobs, holdoutModelSite, holdouty, cl, nlvperdraw = 1000, ... )
fit |
a model fitted using run.detectionoccupancy |
holdoutXocc |
A data frame of occupancy predictors for sites. |
cl |
A cluster created by parallel::makeCluster |
holdoutyXobs |
A data frame of detection information and species detections |
ModelSite |
Column names used to match the holdoutyXobs to sites in holdoutXocc |
fit <- readRDS("../sflddata/private/data/testdata/cutfit_7_4_11_2LV.rds") fit <- translatefit(fit) Xocc <- sflddata::unstandardise.designmatprocess(fit$XoccProcess, fit$data$Xocc) Xocc$ModelSite <- 1:nrow(Xocc) Xobs <- sflddata::unstandardise.designmatprocess(fit$XobsProcess, fit$data$Xobs) Xobs$ModelSite <- fit$data$ModelSite y <- fit$data$y yXobs <- cbind(Xobs, y) cl <- parallel::makeCluster(1) quality <- modelqualstats(fit, holdoutXocc = Xocc, holdoutXobs = Xobs, holdoutModelSite = Xobs$ModelSite, holdouty = y, cl = cl, nlvperdraw = 10) out <- msod:::modelqualstats_insample(fit, cl, nlvperdraw = 10)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.