• R/O
  • SSH

コミット

タグ
未設定

よく使われているワード(クリックで追加)

javac++androidlinuxc#windowsobjective-cqtcocoa誰得pythonphprubygameguibathyscaphec翻訳計画中(planning stage)omegatframeworktwittertestdomvb.netdirectxbtronarduinopreviewerゲームエンジン

コミットメタ情報

リビジョンcc26971bf365f62cd9c8d653569b062b971be431 (tree)
日時2022-11-11 00:58:32
作者Lorenzo Isella <lorenzo.isella@gmai...>
コミッターLorenzo Isella

ログメッセージ

I send "" and "0" to NA and I now treat the case of a single lower bound for the interval.

変更サマリ

差分

diff -r 6dccf62f34a0 -r cc26971bf365 R-codes/create_tam_parquet.R
--- a/R-codes/create_tam_parquet.R Tue Nov 08 17:38:01 2022 +0100
+++ b/R-codes/create_tam_parquet.R Thu Nov 10 16:58:32 2022 +0100
@@ -108,11 +108,11 @@
108108 mutate(across(contains("bound") , ~ ifelse(.x == "",
109109 NA_character_, .x))) |>
110110 mutate(across(contains("bound"), ~as.numeric(.x))) |>
111- mutate(estimated_value=(lower_bound+upper_bound)/2.) |>
111+ mutate(estimated_value=if_else(!is.na(upper_bound),(lower_bound+upper_bound)/2., lower_bound) ) |>
112112
113113 ## only if you want to remove all the zeros
114114
115- ## mutate(across(where(is.numeric), ~if_else(.x==0, NA_real_, .x))) |>
115+ mutate(across(where(is.numeric), ~if_else(.x==0, NA_real_, .x))) |>
116116 select(-c(lower_bound, upper_bound)) |>
117117
118118 mutate(granted_value_extended_eur = case_when(