From 8832afdb4f29c806bd36631c0099aa0981f06261 Mon Sep 17 00:00:00 2001 From: zoometh Date: Mon, 16 Dec 2024 21:02:40 +0000 Subject: [PATCH] varia --- doc/talks/2024-asd/run_asd.R | 2 +- doc/talks/2024-asd/run_asd_bulked.R | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/doc/talks/2024-asd/run_asd.R b/doc/talks/2024-asd/run_asd.R index 85888e5..793bace 100644 --- 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 index 766bb7c..d12b6f4 100644 --- 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") )