Skip to content
Snippets Groups Projects
Commit 95883d62 authored by Camille Fairbourn's avatar Camille Fairbourn
Browse files

change dolphin preset again

parent 5417c810
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
TwoProportionResamplingTest/app.R
+ 1
− 1
View file @ 95883d62
...@@ -39,7 +39,7 @@ cutoff.color <- "#F05133" # color for cutoff values ...@@ -39,7 +39,7 @@ cutoff.color <- "#F05133" # color for cutoff values
Presets <- list() Presets <- list()
# Presets`preset name` <- c(Top Left, Bottom Left, Top Right, Bottom Right, # Presets`preset name` <- c(Top Left, Bottom Left, Top Right, Bottom Right,
# Column A Name, Column B name, Row A name, Row B name) # Column A Name, Column B name, Row A name, Row B name)
Presets$`Dolphin Therapy` <- c(10, 4, 6, 12, "Improved", "Did not improve", Presets$`Dolphin Therapy` <- c(13, 5, 7, 15, "Improved", "Did not improve",
"Dolphin therapy", "Control group") "Dolphin therapy", "Control group")
Presets$`Duct Tape Therapy` <- c(22, 15, 4, 10, "Wart Gone", "Wart Remains", Presets$`Duct Tape Therapy` <- c(22, 15, 4, 10, "Wart Gone", "Wart Remains",
"Duct Tape", "Cryotherapy") "Duct Tape", "Cryotherapy")
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment