Merge pull request #28 from EliLillyCo/AddedDescriptionOfSymbols

added normal pdf description and a few other typos
EliLillyCo · Feb 12, 2019 · cab5a75 · cab5a75
2 parents e30d5d8 + d9fe5b9
commit cab5a75
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/server.R b/server.R
@@ -240,7 +240,7 @@ gp=gpar(col="black", fontsize=13, fontface="italic")))
 
       ggplot(xvalues,aes(x=x))+
           stat_function(fun=dnorm_c, geom="area",fill="orange",alpha=.3)+
-          xlim(c(min(mn-11*sd,mn-11*sd),max(mn+11*sd,mn+11*sd)))+
+          xlim(c(min(mn-4*sd/sqrt(a0),mn-4*sd/sqrt(a0)),max(mn+4*sd/sqrt(a0),mn+4*sd/sqrt(a0))))+
           ##geom_vline(xintercept=input$eoi1,colour="red")+
           labs(x="Treatment Difference", y="Density")+
           annotation_custom(grob)
@@ -273,7 +273,7 @@ gp=gpar(col="black", fontsize=13, fontface="italic")))
   output$mixture_prior <- renderUI({
     tags$div(
       style = glue::glue("font-size: {math_fontpct}%;"),
-      withMathJax(paste0("$$","\\pi(\\delta)= p\\phi\\left(\\frac{\\delta-m_0}{s_0}\\right) + (1-p)\\phi\\left(\\frac{\\delta-m_1}{s_1}\\right) ","$$", "\n", "$$\\pi(\\mu_c, \\sigma^2_c, \\sigma^2_t) \\propto \\frac{1}{\\sigma_c\\sigma_t} $$"))
+      withMathJax(paste0("$$","\\pi(\\delta)= p\\phi\\left(\\frac{\\delta-m_0}{s_0}\\right) + (1-p)\\phi\\left(\\frac{\\delta-m_1}{s_1}\\right) ","$$", "\n", "$$\\pi(\\mu_c, \\sigma^2_c, \\sigma^2_t) \\propto \\frac{1}{\\sigma_c\\sigma_t} $$", "\n", "$$\\phi(x) = \\text{standard normal pdf}$$"))
     )
   })
 

diff --git a/ui.R b/ui.R
@@ -41,7 +41,7 @@ dashboardPage(
                 box(tabName="Success Criterion",title="Success Criterion",
                     solidHeader=TRUE,
                     collapsible=TRUE,status="primary",
-                    "P(TRT-Control<EOI)>PrTH) \n",
+                    "P(TRT-Control<EOI)>PrTH \n",
                     br(),
                     "EOI = Effect of Interest\n",
                     br(),
@@ -101,7 +101,7 @@ dashboardPage(
                                    "Power Prior Discounting Parameter (a0)",
                                    value=0.04,min=0.0,max=1.0,step=0.1),
                       numericInput("prior_power_mean","Power Prior Mean (m)",
-                                   value=-1.97,step=0.1,min=-1000,max=1000),
+                                   value=-2.0,step=0.1,min=-1000,max=1000),
                       numericInput("prior_power_sd", ## add plot without discount
                                    "Power Prior Standard Deviation (s)",
                                    value=0.275,min=0.0,step=0.1,max=1000)