fluidPage(
fluidRow(
bs4Box(
title="Settings",
width=4,
radioButtons("rangeStatType1", label=h5("Range statistic"),
rangeStat, selected="1"),
textInput("rangeStatStats", h5("Measured values (average if > 1 group)"),
value=c("1 2 3")),
numericInput("rangeStatN", h5("Shots per group"),
min=2, max=100, step=1, value=5),
numericInput("rangeStatNGroups", h5("Number of groups"),
min=1, max=10, step=1, value=1),
radioButtons("rangeStatSigmaCEP", label=h5("Estimate \U03C3 or CEP?"),
c("Rayleigh sigma"="1", "Rayleigh CEP"="2"), selected="1"),
conditionalPanel(condition="(input.rangeStatSigmaCEP == '2')",
sliderInput("rangeStatCEPLevel", label=h5("CEP level"),
min=0, max=1, value=0.5, step=0.05)),
sliderInput("rangeStatCILevel", label=h5("CI level"),
min=0, max=1, value=0.9, step=0.05),
numericInput("dstTrgt1", h5("Distance to target"),
min=0, step=1, value=100),
selectInput("unitDstTrgt1", h5("Measurement unit distance"),
choices=unitsDst, selected=2),
selectInput("unitXY1", h5("Measurement unit coordinates"),
choices=unitsXY, selected=3)
),
bs4Box(
title=tagList("Range statistics", icon("arrow-right", lib="font-awesome"), "Rayleigh \U03C3"),
width=8,
h6("Background information"),
p("Assuming a circular bivariate normal shot distribution, this
panel estimates the Rayleigh \U03C3 parameter from
measured range statistics in a given number of shots per
group, averaged over a given number of groups.", br(),
"Distance to target, and information on the measurement
unit for distance and range statistic is only used for
the conversion to",
a("angular size", href="http://shiny.imbei.uni-mainz.de:3838/shotGroups_AngularSize/"),
"."),
verbatimTextOutput("range2sigma"),
p("Based on a Monte Carlo simulation with 2 million repetions of
2, ..., 100 shots per group in 1, ..., 10 groups.", br(),
"For more information, see the",
a("Ballistipedia entry on range statistics",
href="http://ballistipedia.com/index.php?title=Range_Statistics"),
".")
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.