knitr::opts_chunk$set(fig.width=12, fig.height=8, fig.path='Figs/',
                      warning=FALSE, message=FALSE)
knitr::opts_knit$set(root.dir="../")
library(MLlibrary)
library(dplyr)

NAME <- "tanzania_10_from_08_joined"
all_models <- load_models(NAME)

Predict future consumption using current covariates

Simple Regression

models <- c("least_squares", "ridge", "lasso", "rtree", "stepwise")
simple_regression <- filter(all_models, method %in% models)
plot_swf_(simple_regression)
plot_reach_vs_waste_(simple_regression)
plot_reach_vs_waste_(simple_regression, THRESHOLD=.2)
calculate_mse_(simple_regression)

Simple Classification

models <- c("logistic_20", "logistic_lasso_20", "ctree_20", "cforest_20", "logistic_30", "logistic_lasso_30", "ctree_30", "cforest_30")
simple_classification <- filter(all_models, method %in% models | method == "least_squares")
plot_swf_(simple_classification)
plot_reach_vs_waste_(simple_classification)
plot_reach_vs_waste_(simple_classification, THRESHOLD=.2)
plot_reach_vs_waste_(simple_classification, THRESHOLD=.3)

Compound Methods

models <- c("ridge_locality", "ridge_district", "mca_knn", "pca_knn", "pca_knn_all", "mca_pca_avg")
compound <- filter(all_models, method %in% models | method == "least_squares")
plot_swf_(compound)
plot_reach_vs_waste_(compound)
plot_reach_vs_waste_(compound, THRESHOLD=.2)

Using current models in the future

all_models <- load_models("tanzania_10_from_08_split")

Simple Regression

models <- c("least_squares", "ridge", "lasso", "rtree", "stepwise")
simple_regression <- filter(all_models, method %in% models)
plot_swf_(simple_regression)
plot_reach_vs_waste_(simple_regression)
plot_reach_vs_waste_(simple_regression, THRESHOLD=.2)
calculate_mse_(simple_regression)

Simple Classification

models <- c("logistic_20", "logistic_lasso_20", "ctree_20", "cforest_20", "logistic_30", "logistic_lasso_30", "ctree_30", "cforest_30")
simple_classification <- filter(all_models, method %in% models | method == "least_squares")
plot_swf_(simple_classification)
plot_reach_vs_waste_(simple_classification)
plot_reach_vs_waste_(simple_classification, THRESHOLD=.2)
plot_reach_vs_waste_(simple_classification, THRESHOLD=.3)

Compound Methods

models <- c("ridge_locality", "ridge_district", "mca_knn", "pca_knn", "pca_knn_all", "mca_pca_avg")
compound <- filter(all_models, method %in% models | method == "least_squares")
plot_swf_(compound)
plot_reach_vs_waste_(compound)
plot_reach_vs_waste_(compound, THRESHOLD=.2)


ml-e/ML-library documentation built on May 23, 2019, 2:03 a.m.