new shiny app 09_student

Author: GuyliannEngels

inst/shiny/09_student/server.R

@@ -0,0 +1,36 @@
+#
+library(shiny)
+
+# Define server logic required to draw a histogram
+shinyServer(function(input, output) {
+
+    value <- reactive({
+        means_n <- numeric(10000) # Vecteur de 10000 valeurs
+
+        for (i in 1:10000)
+            means_n[i] <- mean(rnorm(input$numb, mean = 8, sd = 2))
+
+        df_test <- tibble::enframe(means_n, name = NULL)
+        df_test
+    })
+
+    output$mean_value <- renderText({
+        t <- value()
+        mean(t$value)
+    })
+
+    output$sd_value <- renderText({
+        t <- value()
+        sd(t$value)
+    })
+
+    output$mean_plot <- renderPlot({
+        t <- value()
+        #hist(t$value)
+
+        chart::chart(data = t, ~ value) +
+            ggplot2::geom_histogram(bins = 30) +
+            ggplot2::labs(x = "Moyenne des échantillons", y = "Dénombrement")
+    })
+
+})

inst/shiny/09_student/ui.R

@@ -0,0 +1,42 @@
+#
+library(shiny)
+
+# Define UI for application that draws a histogram
+shinyUI(fluidPage(
+    # Application title
+    titlePanel("Effet de l'effectif"),
+
+    # Sidebar with a slider input for number of bins
+    sidebarLayout(
+        sidebarPanel(
+            sliderInput("numb",
+                        "Nombre d'individus échantillonner observations",
+                        min = 3,
+                        max = 100,
+                        value = 9),
+            withMathJax(),
+            p("La moyenne d'un échantillon suit l'équation suivante :"),
+            helpText("$$\\bar{x}=\\sum_{i=1}^n{\\frac{x_i}{n}}$$"),
+            p("L'écart-type d'un échantillon suit l'équation suivante : "),
+            helpText("$$s_x = \\sqrt{\\sum_{i=1}^n{\\frac{(x_i - \\bar{x})^2}{n-1}}}$$"),
+            hr(),
+            helpText("La moyenne de la distribution d’échantillonnage"),
+            verbatimTextOutput("mean_value"),
+            helpText("L'écart-type de la la distribution d’échantillonnage"),
+            verbatimTextOutput("sd_value"),
+            hr()
+            ),
+
+        # Show a plot of the generated distribution
+        mainPanel(
+            withMathJax(),
+            helpText("Partons d'une distribution théorique de la population
+                      qui soit normale, de moyenne \\(\\mu = 8\\) et d'écart
+                      type \\(\\sigma = 2\\)."),
+            strong("Comment varie la moyenne et l'écart-type de la distribution
+                    d'échantillonnage ?"),
+            plotOutput("mean_plot"),
+            hr()
+        )
+    )
+))