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

added assignment II

Browse Source
This commit is contained in:
ION606
2025-10-13 12:44:58 -04:00
parent df21d7f281
commit 8b274f6bd6
36 changed files with 1126 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Assignments/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")