ION606/Data-Analytics
Archived
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Activity

added lab 4

Browse Source
This commit is contained in:
ION606
2025-10-31 17:55:13 -04:00
parent dc2ceac7de
commit 88f2975b86
66 changed files with 730 additions and 301 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Assignment II/R/05_knn.R
+11
View File
@@ -0,0 +1,11 @@
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")
df <- suppressMessages(readr::read_csv(ctx$data, show_col_types = FALSE))
set.seed(42)
knn1 <- run_knn(df, ctx$region_col, ctx$knn1, ctx$k, "model A", ctx$fig_dir)
knn2 <- run_knn(df, ctx$region_col, ctx$knn2, ctx$k, "model B", ctx$fig_dir)
ctx$knn <- list(knn1, knn2)
writeLines(jsonlite::toJSON(ctx, pretty = TRUE, auto_unbox = TRUE), "/home/ion606/Desktop/Homework/Data Analytics/Assignments/Assignment II/output/ctx.json")
message("knn done")