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)
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)
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)
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)
all_models <- load_models("tanzania_10_from_08_split")
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)
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)
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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.