max/poet
1
0
Fork 0
mirror of https://git.gfz-potsdam.de/naaice/poet.git synced 2025-12-16 04:48:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

fix: Corrected log10 calculation in master_iteration_end function

Browse Source
This commit is contained in:
Max Luebke 2024-09-16 12:05:19 +02:00
parent 66fb9e601c
commit 57d05f5c76
1 changed files with 18 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
R_lib/kin_r_library.R
View File

@ -63,7 +63,7 @@ master_iteration_end <- function(setup, state_T, state_C) {
iter <- setup$iter
# print(iter)
## max digits for iterations
dgts <- as.integer(ceiling(log10(setup$maxiter)))
dgts <- as.integer(ceiling(log10(setup$maxiter + 1)))
## string format to use in sprintf
fmt <- paste0("%0", dgts, "d")
@ -78,7 +78,8 @@ master_iteration_end <- function(setup, state_T, state_C) {
ai_surrogate_info <- list(
prediction_time = if (exists("ai_prediction_time")) as.integer(ai_prediction_time) else NULL,
training_time = if (exists("ai_training_time")) as.integer(ai_training_time) else NULL,
valid_predictions = if(exists("validity_vector")) validity_vector else NULL)
valid_predictions = if (exists("validity_vector")) validity_vector else NULL
)
SaveRObj(x = list(
T = state_T,
@ -186,7 +187,8 @@ ReadRObj <- function(path) {
switch(extension,
rds = readRDS(path),
qs = qs::qread(path))
qs = qs::qread(path)
)
}
## Handler to store R objs to binary files using either builtin
@ -199,6 +201,6 @@ SaveRObj <- function(x, path) {
switch(extension,
rds = saveRDS(object = x, file = path),
qs = qs::qsave(x=x, file = path))
qs = qs::qsave(x = x, file = path)
)
}