changed dolphin labels

TwoProportionResamplingTest/app.R

@@ -39,7 +39,7 @@ cutoff.color <- "#F05133" # color for cutoff values
 Presets <- list()
 # Presets`preset name` <- c(Top Left, Bottom Left, Top Right, Bottom Right, 
 #                           Column A Name, Column B name, Row A name, Row B name)
-Presets$`Dolphin Therapy` <- c(10, 3, 5, 12, "Showed substantial improvement", "Did not show substantial improvement",
+Presets$`Dolphin Therapy` <- c(10, 3, 5, 12, "Improved", "Did not improve",
                                "Dolphin therapy", "Control group")
 Presets$`Duct Tape Therapy` <- c(22, 15, 4, 10, "Wart Gone", "Wart Remains",
                                  "Duct Tape", "Cryotherapy")