corentinchoisy/simul_these
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Added shinyapp for results visualization

Browse Source
This commit is contained in:
Corentin Choisy
2024-05-15 11:20:45 +02:00
parent 9a444cec3b
commit 9c0d4cde9f
6 changed files with 2148 additions and 2072 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
RProject/shinyapps/results-dashboard/app.R
View File

@ -199,25 +199,25 @@ server <- function(input, output) {
df_res_r <- reactive({
rs <- df_res()
if(input$typeres=="None") {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias")]
rs <- dplyr::mutate_if(rs,is.numeric,round,3)
rs <- dplyr::mutate_all(rs,as.character)
}
if(input$typeres=="Perfect") {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias")]
rs <- dplyr::mutate_if(rs,is.numeric,round,3)
rs <- dplyr::mutate_all(rs,as.character)
}
if(input$typeres=="ROSALI") {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias","dif.detected","prop.perfect","flexible.detect","moreflexible.detect","any.detect")]
if (input$causal) {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias")]
}
@ -232,11 +232,11 @@ server <- function(input, output) {
rs <- dplyr::mutate_all(rs,as.character)
}
if(input$typeres=="Residuals") {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias","dif.detected","prop.perfect","flexible.detect","moreflexible.detect","any.detect")]
if (input$causal) {
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","m.beta","se.empirical.beta","se.analytical.beta",
rs <- rs[,c('scenario','N','J','M','eff.size',"nb.dif","dif.size","theoretical.power","m.beta","se.empirical.beta","se.analytical.beta",
"m.low.ci.beta","m.high.ci.beta","true.value.in.ci.p","h0.rejected.p","beta.same.sign.truebeta.p",
"beta.same.sign.truebeta.signif.p","bias")]
}