inst/apps/samplesize_determination_attributiv/attributiv/ui_attributiv.R

In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

splitLayout(cellWidths = c("15%","85%"),

            verticalLayout(

              div( class="well  well-sm", style = "margin: 0px;",
                   HTML("<p style='color:blue;text-align:center'> Anforderungen aus<br/>der Risiko-Analyse </p>"),
                   numericInput("p_min_attributiv", label = HTML("minimale i.o.-Rate<br/>des Produktionsprozesses"), value = 95, min = 0, max = 100),
                   numericInput("test_power_attributiv", label = "Test-Power", value = 25, min = 0, max = 100)
              ),

              div( class="well  well-sm", style = "margin: 0px;",
                   HTML("<p style='color:blue;text-align:center'> Um diese Anforderungen<br/>zu erfüllen ist folgender<br/>Testplan zu verwenden</p>"),
                   uiOutput("result_sample_size_attributiv", style="text-align: center;")
              ),

              div( class="well  well-sm", style = "margin: 0px; ",
                   actionButton("help_sample_size_determination_attributiv", label = "Hilfe", width = "100%")
              )

            ),

            div( class="well  well-sm", style="margin: 0px;",
                 tags$b("OC-Kurven von Testplänen (n,c) zur genaueren Untersuchung der Eigenschaften dieser Testpläne"),
                 plotOutput("oc_kurven_attributiv", height = 600),

                 div( class="well  well-sm", style="margin: 0px;",
                      splitLayout(
                        numericInput("n", label = "Stichprobengröße n:", value = 5, min = 2),
                        numericInput("c", label = "max n.i.o. Anzahl c: ", value = 0, min = 0)
                      )
                 )
            )

)