diff --git a/Assignments/.gitignore b/Assignments/.gitignore index c6a7591..ecdcae5 100644 --- a/Assignments/.gitignore +++ b/Assignments/.gitignore @@ -2,3 +2,4 @@ node_modules .venv .vscode Assignment III +tmp/ \ No newline at end of file diff --git a/Assignments/Assignment II/R/00_utils.R b/Assignments/Assignment II/R/00_utils.R index 19b5f20..852e532 100644 --- a/Assignments/Assignment II/R/00_utils.R +++ b/Assignments/Assignment II/R/00_utils.R @@ -2,7 +2,7 @@ suppressPackageStartupMessages({ - pkgs <- c("tidyverse", "readr", "readxl", "broom", "jsonlite", "ggplot2", "class", "optparse") + pkgs <- c("tidyverse", "readr", "readxl", "broom", "jsonlite", "ggplot2", "class", "optparse", "markdown") to_install <- pkgs[!pkgs %in% rownames(installed.packages())] if (length(to_install)) install.packages(to_install, repos = "https://cloud.r-project.org") lapply(pkgs, library, character.only = TRUE) diff --git a/Assignments/Assignment II/R/06_report.R b/Assignments/Assignment II/R/06_report.R index 09a64db..f6e87ff 100644 --- a/Assignments/Assignment II/R/06_report.R +++ b/Assignments/Assignment II/R/06_report.R @@ -1,3 +1,5 @@ +library(markdown) + source("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/R/00_utils.R") ctx <- jsonlite::fromJSON("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/ctx.json") @@ -70,15 +72,18 @@ if (!is.null(ctx$knn) && length(ctx$knn)) { # I hate markdown sometimes man md <- gsub("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/", "", md) -writeLines(md, "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md") -writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE), - file.path(ctx$stats_dir, "summary.json")) +# writeLines(md, "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md") +# writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE), +# file.path(ctx$stats_dir, "summary.json")) -# rmarkdown::render( -# "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/report.md", -# output_format = "pdf_document", -# output_file = "report.pdf", -# output_dir = "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output" -# ) +md_file <- "output/report.md" +html_file <- "output/report.html" +pdf_file <- "output/report.pdf" + +setwd("/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/") +markdownToHTML( + md_file, + html_file +) message("done") diff --git a/Assignments/Assignment II/output/report.html b/Assignments/Assignment II/output/report.html new file mode 100644 index 0000000..7e12a49 --- /dev/null +++ b/Assignments/Assignment II/output/report.html @@ -0,0 +1,152 @@ + + +
+ + + +date: 2025-10-13
+epi_results_2024_pop_gdp_v2.csvregionEPI.newSub-Saharan Africa vs Latin America & Caribbean
+
+
+
on region Sub-Saharan Africa, the better model is region Sub-Saharan Africa: EPI.new ~ gdp + population (r²=0.361, aic=265.4, bic=272.7).
c("AGR.new", "AIR.new", "APO.new")
+c("BCA.new", "BDH.new", "CBP.new")
+