diff --git a/R/sensitivity_analysis_item.R b/R/sensitivity_analysis_item.R index 36e3cc3..b10a6e6 100644 --- a/R/sensitivity_analysis_item.R +++ b/R/sensitivity_analysis_item.R @@ -54,9 +54,9 @@ setMethod("getLabel", signature=c("sensitivity_analysis_item"), definition=funct parameterLabel <- parameterName } if (change@up_down_as_factor) { - return(paste0(parameterLabel, " (\U00D7", change@up, ",", "\U00F7", change@down, ")")) + return(paste0(parameterLabel, " (\U00F7", change@down, ", ", "\U00D7", change@up, ")")) } else { - return(paste0(parameterLabel, " (", change@up, ",", change@down, ")")) + return(paste0(parameterLabel, " (", change@down, ", ", change@up, ")")) } }) diff --git a/README_files/figure-gfm/sensibility_analysis_auc_example-1.png b/README_files/figure-gfm/sensibility_analysis_auc_example-1.png index 78af99c..9f82076 100644 Binary files a/README_files/figure-gfm/sensibility_analysis_auc_example-1.png and b/README_files/figure-gfm/sensibility_analysis_auc_example-1.png differ diff --git a/README_files/figure-gfm/sensibility_analysis_auc_example_absolute-1.png b/README_files/figure-gfm/sensibility_analysis_auc_example_absolute-1.png index c7aec96..582055e 100644 Binary files a/README_files/figure-gfm/sensibility_analysis_auc_example_absolute-1.png and b/README_files/figure-gfm/sensibility_analysis_auc_example_absolute-1.png differ diff --git a/README_files/figure-gfm/sensibility_analysis_cmax_example-1.png b/README_files/figure-gfm/sensibility_analysis_cmax_example-1.png index d733eee..440eead 100644 Binary files a/README_files/figure-gfm/sensibility_analysis_cmax_example-1.png and b/README_files/figure-gfm/sensibility_analysis_cmax_example-1.png differ diff --git a/tests/testthat/testSensitivityAnalysisItem.R b/tests/testthat/testSensitivityAnalysisItem.R index 6b8870b..9656a48 100644 --- a/tests/testthat/testSensitivityAnalysisItem.R +++ b/tests/testthat/testSensitivityAnalysisItem.R @@ -4,7 +4,7 @@ context("Test all methods from the sensitivity analysis item class") test_that("Method getLabel is working as expected", { labeledParameters <- LabeledParameters(c(DUR="Infusion duration")) - item <- SensitivityAnalysisItem(Change("DUR", up=2, down=3)) + item <- SensitivityAnalysisItem(Change("DUR", down=3, up=2)) - expect_equal(item %>% getLabel(labeled_parameters=labeledParameters), "Infusion duration (×2,÷3)") + expect_equal(item %>% getLabel(labeled_parameters=labeledParameters), "Infusion duration (÷3, ×2)") }) \ No newline at end of file