diff --git a/ui.R b/ui.R index 11a8e44..a4fbf08 100644 --- a/ui.R +++ b/ui.R @@ -156,25 +156,48 @@ body <- dashboardBody( - # ----------Ethical Implications--------------- + + + + # ----------npRCT Explanation-------------------- box( - title = "Ethical Implications", + title = "npRCT Explanation", color = "blue", - #h2("Ethical Implications"), - p("There are the following ethical implications.") - + p("The ", strong("nested-precision Randomised Controlled Trial (npRCT)")," is a means to facilitate the move towards precision medicine by combining ", em("traditional"), " intervention testing (e.g., intervention A ", em("versus"), " B) with testing of a ", em("precision"), " algorithm (e.g., randomisation to intervention A or B ", em("versus"), " stratification to intervention A or B)."), + p("The design of the npRCT, which combines the ", em("traditional"), " with what we call ", em("precision"), " RCT, is outlined below based on the publication of a letter to the journal XY. ") ), - # ----------Negative Values------------------- + + # ----------Precision Algorithm Identification---- box( - title = "Negative Values", - color = "blue", - - #h2("Negative Values"), - p("Below you can find results from power analysis for the", strong("nested-precision Randomised Controlled Trial (npRCT)"),". You can set parameters for power analysis in the box to the right. Results from power analysis will change accordingly below.") - + title = "Precision Algorithm Identification", + color = "blue", + + #h2("Ethical Implications"), + p("Besides increased power to detect effects, another main advantage of the npRCT is that it allows for online identification of a precision algorithm during the traditional RCT. In particular, researchers can explore whether any single or combination of variables may indicate a preferable response for one treatment over the other."), + + p("If this ", em("precision algorithm"), "is deemed effective for stratification, it can then be used in the ", em("precision"), "part of the npRCT to test stratification against randomisation."), + + h3("Practical Considerations"), + p("If you play around with the sliders of this power calculation app, you can see that the samplse sizes for ", em("traditional"), " and ", em("precision"), " RCT can vary quite dramatically. If the effect size for the ", em("precision"), " RCT is set much smaller than the to-be-detected effect size of the ", em("traditional"), " RCT, you can get very small (or even negative) sample size requirements for the ", em("traditional"), " RCT as there are ", em("sufficient"), " participants included in the ", em("precision"), " RCT."), + + p("Here, it is important to consider the practical needs for identification of the precision algorithm. While you may have ", em("sufficient"), " participants available in the ", em("precision"), " RCT for testing intervention A versus B, for instance, there may not be sufficient time or participants available to actually explore potential precision algorithms. In this case, sample size requirements and power considerations have to be weighted against the practical requirements for the identification of the precision algorithm. Related to this, if the ", em("traditional"), " RCT is ongoing while the ", em("precision"), " algorithm is being developed, one has to allow sufficient time (in terms of sample recruitment) to move from exploration to a decision on a to-be-tested precision algorithm."), + + + + ), + + + # ----------Ethical Implications---------------- + box( + title = "Ethical Implications", + color = "blue", + + #h2("Ethical Implications"), + p("There are the following ethical implications.") + ) )