J’essaie depuis un moment de stocker la valeur d'une p-value provenant d'un test de corrélation et en fonction de cette valeur effectuer un affichage conditionnel type :
- La p-value est < à 5 %, on rejette H0, les deux indicateurs ont un lien significatif
- La p-value est > à 5 %, on accepte H0, les deux indicateurs n'ont pas de lien significatif
J'ai essayé plusieurs choses comme stocker cette p-value dans un objet réactif, dans un renderUI(ect) mais rien à faire ...
UI :
Code : Tout sélectionner
mainPanel(
verbatimTextOutput("Sortie_test"),
br(),
h4("La p-value du test est égale à ",textOutput("p_valueSPearman")),
if (uiOutput("p_valueSPe")<0.05){
return("On rejette H0. Les deux indicateurs ont un lien significatif")}
else {return("On accepte H0. Les deux indicateurs n'ont pas de lien significatif")}
)
SERVER :
Code : Tout sélectionner
#Stockage de la p-value du test
output$p_valueSpe <- reactive({
tmp_BDD_quanti <- BDD_quanti()
t <- cor.test(tmp_BDD_quanti[,input$ListeVarsCorrelation1],tmp_BDD_quanti[,input$ListeVarsCorrelation2], method="spearman")
return(t$p.value)
})
#Test Corrélation Spearman
output$Sortie_test <- renderPrint({
tmp_BDD_quanti <- BDD_quanti()
t <- cor.test(tmp_BDD_quanti[,input$ListeVarsCorrelation1],tmp_BDD_quanti[,input$ListeVarsCorrelation2], method="spearman")
return(t)
})
Je ne pense pas que ce soit très compliqué ... J'ai test aussi stocker cette p-value dans un renderText mais j'ai des soucis après pour la convertir en numérique ..
Si quelqu'un à un idée ! Je suis preneur !
Cdlt