varia

zoometh · Dec 16, 2024 · 8832afd · 8832afd
1 parent b01b559
commit 8832afd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/doc/talks/2024-asd/run_asd.R b/doc/talks/2024-asd/run_asd.R
@@ -149,7 +149,7 @@ write.table(isochr$data, paste0(obj.case.out, ".tsv"), sep = "\t", row.names = F
 
 source("R/neo_find_date.R")
 source("R/neo_dbs_info_date.R")
-abber.date <- neo_find_date(df = isochr$data, print.it = FALSE, idf.dates = 162)
+abber.date <- neo_find_date(df = isochr$data, print.it = FALSE, idf.dates = 109)
 ad <- neo_dbs_info_date(df.c14 = df.c14, LabCode = abber.date$labcode)
 # Do not add double quotes in the https://github.com/zoometh/neonet/blob/main/inst/extdata/c14_aberrant_dates.tsv file
 

diff --git a/doc/talks/2024-asd/run_asd_bulked.R b/doc/talks/2024-asd/run_asd_bulked.R
@@ -21,8 +21,8 @@ my_list <- list(
   list("MedCentr", c(-5400), c(5, 35, 20, 47), "koppen_7k.tif"),
   list("MedCentr", c(-5100), c(5, 35, 20, 47), "koppen_7k.tif"),
   # Med Occ
-  list("MedWest", c(-5600), c(-11, 35, 14, 45), "koppen_8k.tif"),
-  list("MedWest", c(-5300), c(-11, 35, 14, 45), "koppen_7k.tif")
+  list("MedWest", c(-5600), c(-11, 35, 10, 44), "koppen_8k.tif"),
+  list("MedWest", c(-5300), c(-11, 35, 10, 44), "koppen_7k.tif")
   # All Med
   # list("MedCompleted", c(-5200), c(-7, 30, 38, 46), "koppen_7k.tif")
 )