instructions change

OneProportionResamplingTest/app.R

@@ -74,8 +74,9 @@ ui <- fluidPage(useShinyjs(),
                                         tags$p("Enter the value of your observed proportion in the text
                                                under the graph. Selecting 'greater/less than' will highlight the
                                                samples that are greater/less than your observed value."),
-                                        tags$p("Selecting 'further from center than' will highlight the samples that are further away
-                                               from the 'Probability of Success' than your observed value."),
+                                        tags$p("Selecting 'further from center than' will highlight the samples that are 
+                                               further away from (either above or below) the 'Probability of Success' 
+                                               than your observed value."),
                                         tags$p("Press the Reset button whenever you change the Probability of Success
                                                or the Sample Size."),
                                         hr(),