From c59be3b5a051217a702c2805159ab07a70a5ff34 Mon Sep 17 00:00:00 2001 From: gareth Date: Tue, 18 May 2021 12:40:48 +1000 Subject: [PATCH] better name --- ptha_access/get_PTHA_results.R | 2 +- ptha_access/test_all.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/ptha_access/get_PTHA_results.R b/ptha_access/get_PTHA_results.R index d6e1b662..d46c38dc 100644 --- a/ptha_access/get_PTHA_results.R +++ b/ptha_access/get_PTHA_results.R @@ -1155,7 +1155,7 @@ randomly_sample_scenarios_by_Mw_and_rate<-function( #' get standard error). Otherwise, return a data.frame containing that #' information for each individual magnitude bin. #' -get_exrate_uncertainty_at_stage<-function(random_scenarios, event_peak_stage, threshold_stage, +estimate_exrate_uncertainty<-function(random_scenarios, event_peak_stage, threshold_stage, importance_sampling_type = 'basic', return_per_Mw_bin=FALSE){ unique_Mw = unique(round(random_scenarios$mw, 3)) diff --git a/ptha_access/test_all.R b/ptha_access/test_all.R index 9f9875b3..1eb7d888 100644 --- a/ptha_access/test_all.R +++ b/ptha_access/test_all.R @@ -242,7 +242,7 @@ test_random_scenario_sampling<-function(){ for(rsn in names(random_scenarios)){ for(ist in importance_sampling_types){ - exrate_uncertainty[[rsn]][[ist]] = ptha18$get_exrate_uncertainty_at_stage( + exrate_uncertainty[[rsn]][[ist]] = ptha18$estimate_exrate_uncertainty( random_scenarios[[rsn]], event_peak_stage, threshold_stage, importance_sampling_type=ist, return_per_Mw_bin=TRUE) }