Shiny-Rendering-Ausgabe der power.prop.test-Funktion für die Stichprobengröße

Question

Ich bin ziemlich neu zu glänzend, und ich weiß, y Frage ist ziemlich einfach, aber trotz viel Forschung kann ich nicht scheinen, glänzend zu machen, um die Ausgabe eines Proportionaltests. Ich versuche ein Skript zu machen, bei dem ein Benutzer alle Parameter (p1, p2, sig.level, power) eingibt und die Stichprobengröße n angegeben wird. Ich habe viele verschiedene Methoden ausprobiert, aber ich habe normalerweise keine Ausgabe, oder der Fehler "genau einer von 'n', 'p1', 'p2', 'power' und 'sig.level' muss NULL sein." . Jede Hilfe wird geschätzt, danke!

mein Code so weit:

ui<-shinyUI(fluidPage(
    headerPanel("Power Calculator"), 
    fluidRow(
    column(12, 
     wellPanel(
     helpText("This calculator can help you understand the power of 
        your experimental design to detect treatment effects. You  
     can choose 
        between a standard design in which individuals are randomly 
     assigned to treatment or control 
        and a clustered design, in which groups of individuals are assigned to treatment 
        and control together."), 
     column(4, 
       wellPanel(

     numericInput('p1a','prop1', value = 0.12, min = 0.01, max = 0.99), 
     numericInput('p2a', 'prop2', value = 0.14, min = 0.01, max = 0.99), 
     numericInput('sig.levela','significance level' , value = 0.95, min = 0.9, max = 0.99), 
     numericInput('powera', 'power level', value = 0.8, min = 0.75, max = 0.99) 
       ), 
     column(8, 
       wellPanel(
        htmlOutput("nrequired") 

       ) 
     ) 
     ) 
     ) 
     ) 
     ) 
     ) 
     ) 
     ) 

     server<-shinyServer(
     function(input, output) { 



     sample.size<-reactive({ 
    p1<-input$p1a 
    p2<-input$p2a 
    sig.level<-input$sig.level$a 
    power<-input$power.levela 

}) 


output$nrequired <- renderPrint({ 
power.prop.test(sample.size) 
print(sample.size) 
}) 

} 
) 

shinyApp(ui=ui,server=server) 

Answer 1

Die Fehlermeldung von power.prop.test kommt, die durch das Bestehen der reaktiven Ausdruck sample.size als Parameter es verursacht wird.

Bitte, versuchen Sie die Server-Funktion wie folgt zu ändern:

server <- shinyServer(function(input, output) { 
    output$nrequired <- renderPrint({ 
    power.prop.test(p1 = input$p1a, p2 = input$p2a, 
        sig.level = input$sig.levela, power = input$powera) 
    }) 
}) 

BTW: Ich habe über Ihre Wahl des sig.level Parameter von 0,95 fragen, während power.prop.test wird ein Standardwert von 0,05 verwendet.