knitr::opts_chunk$set(echo = FALSE, warning = FALSE, message = FALSE, fig.height=4, dev='svg')
library(ggplot2)
samplePlots <- readRDS(
    "~/Documents/PointPolygon/demo/plotsForPresent.Rds")

resultsPlotsDR <- readRDS(
    "~/Documents/PointPolygon/demo/aggplotsDR.Rds")

resultsPlots <- readRDS(
    "~/Documents/PointPolygon/demo/aggplots.Rds")

Background


Data Example


Data Example


Previous Approaches


New Proposal: Mixture Model

$$Y_i \sim \text{Binomial}(p_{s_i, t_i}, N_i) \ \text{logit}(p_{s_i, t_i}) = \boldsymbol{\beta \cdot X_{s_i, t_i}} + \omega(s_i, t_i) \ \boldsymbol{\omega} \sim \mathcal{GP}(\boldsymbol{0}, \mathcal{M} \otimes\text{AR1}) \ \boldsymbol{\omega}~\dot \sim~ \text{GMRF}(\boldsymbol{0}, Q^\mathcal{M} \otimes Q^\text{AR1}) \ \kappa \sim \text{Log Normal}(0, 10) \ \tau \sim \text{Log Normal}(0, 10) \ \rho \sim \text{Logit Normal}(0, 10)$$


New Proposal: Mixture Model

$$Y^\star_i ~\dot \sim ~ \begin{cases} \text{Binomial}(p_{s_{j_1}, t_i}, N_i) \times q_{s_{j_1}}\ \vdots \ \text{Binomial}(p_{s_{j_J}, t_i}, N_i) \times q_{s_{j_J}} \ \end{cases} \text{for } j \in \mathcal{A}i \ \text{logit}(p{s_j, t_i}) = \boldsymbol{\beta \cdot X_{s_j, t_i}} + \omega(s_j, t_i) \ \boldsymbol{\omega}~\dot \sim~ \text{GMRF}(\boldsymbol{0}, Q^\mathcal{M} \otimes Q^\text{AR1}) \ \kappa \sim \text{Log Normal}(0, 10) \ \tau \sim \text{Log Normal}(0, 10) \ \rho \sim \text{Logit Normal}(0, 10)$$


New Proposal Alternative: Riemann

$$Y^\star_i ~\dot \sim ~ \text{Binomial}(\sum_{j \in \mathcal{A}} p_{s_{j}, t_i} \times q_{s_{j}, t_i}, N_i)\ \text{logit}(p_{s_j, t_i}) = \boldsymbol{\beta \cdot X_{s_j, t_i}} + \omega(s_j, t_i) \ \boldsymbol{\omega}~\dot \sim~ \text{GMRF}(\boldsymbol{0}, Q^\mathcal{M} \otimes Q^\text{AR1}) \ \kappa \sim \text{Log Normal}(0, 10) \ \tau \sim \text{Log Normal}(0, 10) \ \rho \sim \text{Logit Normal}(0, 10)$$


Model Requirements


Model Comparison Framework: Simulated Field and Sampling


Model Comparison Framework: Simulated Field


Model Comparison Framework: Simulated Field Variation


Model Comparison Framework: Sampling

samplePlots$mixPlot

Model Comparison Framework: Sampling

samplePlots$ovPlot

Model Comparison Framework: Candidate Models


Model Results

samplePlots$results

Model Results

samplePlots$resultsSD

Model Comparison Framework: Evaluation


Model Results

resultsPlots$rmseRelative

Model Results

resultsPlots$coverage

Model Results

resultsPlots$bias

Model Results

resultsPlots$dissDiff

Simulation DR Context


Dominican Republic Sampling

samplePlots$fieldDR

Dominican Republic Sampling

samplePlots$fieldDR2

Dominican Republic Sampling

samplePlots$reg

Dominican Republic Sampling

samplePlots$regUR

Model Results

samplePlots$drResults

Model Results

samplePlots$drProvError

Model Results

resultsPlotsDR$rmseRelative

Model Results

resultsPlotsDR$rmseProvRelative

Model Results

resultsPlotsDR$bias

Model Results

resultsPlotsDR$provcoverage

Model Results

resultsPlotsDR$dissDiff

Notes on Runtime

resultsPlotsDR$runtime

Conclusion


Limitations


class: inverse, center, middle

Questions??



nmmarquez/PointPolygon documentation built on Dec. 10, 2020, 1:15 a.m.