Nothing
server = function(input, output, session) {
t <- reactive({ min(input$range.pois):max(input$range.pois) })
p <- reactive({ signif(seq(0, 1, length = length(max(t()):min(t()))), digits = 4) })
C <- reactive({ ppois(t(), input$lamb.pois)})
P <- reactive({ dpois(t(), input$lamb.pois)})
R <- reactive({ 1 - C()})
h <- reactive({ exp(log(P())-log(R()))})
H <- reactive({ -1 * log(1 - ppois(t(),input$lamb.pois))})
Q <- reactive({ qpois(p(),input$lamb.pois)})
df <- reactive({ data.frame(Time = t(),
PROB = p(),
CDF = C(),
PMF = P(),
REL = R(),
haz = h(),
HAZ = H(),
QUANT = Q()
)})
output$poisC <- renderMetricsgraphics({
mjs_plot(df(), x = Time, y = CDF, decimals = 4, top = 0) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "X = x", y_label = "F(x)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
output$poisP <- renderMetricsgraphics({
mjs_plot(df(), x = Time, y = PMF, decimals = 4) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "X = x", y_label = "f(x)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
output$poisR <- renderMetricsgraphics({
mjs_plot(df(), x = Time, y = REL, decimals = 4) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "X = x", y_label = "S(x)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
output$poish <- renderMetricsgraphics({
mjs_plot(df(), x = Time, y = haz, decimals = 4) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "X = x", y_label = "h(x)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
output$poisH <- renderMetricsgraphics({
mjs_plot(df(), x = Time, y = HAZ, decimals = 4) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "X = x", y_label = "H(x)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
output$poisQ <- renderMetricsgraphics({
mjs_plot(df(), x = PROB, y = QUANT, decimals = 4) %>%
mjs_point(point_size = 10) %>%
mjs_labs(x_label = "Probability (p)", y_label = "x(p)") %>%
mjs_add_css_rule("{{ID}} .mg-active-datapoint { font-size: 20pt }")
})
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.