Как получить реактивный доверительный интервал в блестящей продукции?

Question

Я пытаюсь создать приложение Shiny, которое можно использовать для изучения набора данных, и в конечном итоге получить 95% доверительный интервал для одной переменной.

Вот что у меня есть, но яЯ не уверен, как отфильтровать набор данных, получить 95% доверительный интервал, используя t-тест, а затем отправить этот вывод в приложение.

Мой набор данных называется «цветы».В нем есть столбец со множеством наблюдений «Месяц» и столбец со значениями, соответствующими количеству цветов, необходимых в данном месяце.

Я ценю любые отзывы.Спасибо за вашу помощь.

# Load libraries
library(broom)
library(shiny)
library(shinythemes)
library(dplyr)
library(readr)

# UI
ui <- fluidPage(theme = shinytheme("lumen"),
  titlePanel("Confidence Interval"),

  sidebarLayout(
    sidebarPanel(
      helpText("Select the desired model parameters 
               from the dropdown menus below."),

      selectInput(inputId = "month", 
                  label = "Choose a Month:",
                  choices = unique(data$Month),
                  selected = "January"),

    mainPanel(
      htmlOutput("text")
    )
  )
)

# Server
server <- function(input, output) {

  # Subset data
  CI <- reactive({flowers %>%
    filter(month == input$Month) %>%
    t.test(flowers$Lbs, data = flowers, conf.level = 0.95)
    })

  output$CI <- CI$conf.int

  output$text <- renderText({ 
    paste("There is a 95% probability that between" [lower estimate], "and", [upper estimate] "flowers will be needed in a given", strong(input$month), ".")
  })
}

# Run the application 
shinyApp(ui = ui, 
         server = server)