TCL

.Rbuildignore

@@ -0,0 +1 @@
+^LICENSE\.md$

.Rproj.user/9A1153C7/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "sortOrder": [
+        {
+            "columnIndex": 2,
+            "ascending": true
+        }
+    ],
+    "path": "~/MEGA/Programación/Trabajos en R/Bookdown/Cursos de Estadística/App Shiny de cursos/App Estadistica"
+}

.Rproj.user/9A1153C7/pcs/packages-pane.pper

@@ -0,0 +1,7 @@
+{
+    "installOptions": {
+        "installFromRepository": true,
+        "libraryPath": "/home/daniel/R/x86_64-pc-linux-gnu-library/4.4",
+        "installDependencies": true
+    }
+}

.Rproj.user/9A1153C7/pcs/source-pane.pper

@@ -0,0 +1,4 @@
+{
+    "activeTab": 1,
+    "activeTabSourceWindow0": 0
+}

.Rproj.user/9A1153C7/pcs/source-window.pper

@@ -0,0 +1,11 @@
+{
+    "sourceWindowGeometry": {
+        "webg2kxv8gxap": {
+            "ordinal": 1,
+            "x": 1920,
+            "y": 37,
+            "width": 1080,
+            "height": 1883
+        }
+    }
+}

.Rproj.user/9A1153C7/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left": {
+        "splitterpos": 392,
+        "topwindowstate": "NORMAL",
+        "panelheight": 944,
+        "windowheight": 982
+    },
+    "right": {
+        "splitterpos": 392,
+        "topwindowstate": "NORMAL",
+        "panelheight": 944,
+        "windowheight": 982
+    }
+}

.Rproj.user/9A1153C7/pcs/workbench-pane.pper

@@ -0,0 +1,5 @@
+{
+    "TabSet1": 2,
+    "TabSet2": 2,
+    "TabZoom": {}
+}

.Rproj.user/9A1153C7/rmd-outputs

@@ -0,0 +1,5 @@
+
+
+
+
+

.Rproj.user/9A1153C7/saved_source_markers

@@ -0,0 +1 @@
+{"active_set":"","sets":[]}

.Rproj.user/9A1153C7/sources/prop/4C7F59B4

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "28,54",
+    "scrollLine": "28"
+}

.Rproj.user/9A1153C7/sources/prop/B92398CD

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "45,14",
+    "scrollLine": "26"
+}

.Rproj.user/9A1153C7/sources/prop/D195A9A6

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "webg2kxv8gxap",
+    "Source": "Source",
+    "cursorPosition": "52,76",
+    "scrollLine": "0"
+}

.Rproj.user/9A1153C7/sources/prop/E8B64310

@@ -0,0 +1,4 @@
+{
+    "source_window_id": "",
+    "Source": "Source"
+}

.Rproj.user/9A1153C7/sources/prop/F6A8DCF6

@@ -0,0 +1,6 @@
+{
+    "source_window_id": "",
+    "Source": "Source",
+    "cursorPosition": "16,58",
+    "scrollLine": "0"
+}

.Rproj.user/9A1153C7/sources/prop/INDEX

@@ -0,0 +1,5 @@
+~%2FMEGA%2FProgramaci%C3%B3n%2FTrabajos%20en%20R%2FBookdown%2FCursos%20de%20Estad%C3%ADstica%2FApp%20Shiny%20de%20cursos%2FApp%20Estadistica%20II%2F.Rbuildignore="E8B64310"
+~%2FMEGA%2FProgramaci%C3%B3n%2FTrabajos%20en%20R%2FBookdown%2FCursos%20de%20Estad%C3%ADstica%2FApp%20Shiny%20de%20cursos%2FApp%20Estadistica%20II%2FApp%2Fserver.R="D195A9A6"
+~%2FMEGA%2FProgramaci%C3%B3n%2FTrabajos%20en%20R%2FBookdown%2FCursos%20de%20Estad%C3%ADstica%2FApp%20Shiny%20de%20cursos%2FApp%20Estadistica%20II%2FApp%2Fui.R="4C7F59B4"
+~%2FMEGA%2FProgramaci%C3%B3n%2FTrabajos%20en%20R%2FBookdown%2FCursos%20de%20Estad%C3%ADstica%2FApp%20Shiny%20de%20cursos%2FApp%20Estadistica%2FApp%2Fserver.R="F6A8DCF6"
+~%2FMEGA%2FProgramaci%C3%B3n%2FTrabajos%20en%20R%2FBookdown%2FCursos%20de%20Estad%C3%ADstica%2FApp%20Shiny%20de%20cursos%2FApp%20Estadistica%2FApp%2Fui.R="B92398CD"

.Rproj.user/9A1153C7/sources/session-d5d26ab/48838293

@@ -0,0 +1,26 @@
+{
+    "id": "48838293",
+    "path": "~/MEGA/Programación/Trabajos en R/Bookdown/Cursos de Estadística/App Shiny de cursos/App Estadistica/App/ui.R",
+    "project_path": "App/ui.R",
+    "type": "r_source",
+    "hash": "0",
+    "contents": "",
+    "dirty": false,
+    "created": 1730067928079.0,
+    "source_on_save": false,
+    "relative_order": 1,
+    "properties": {
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "45,14",
+        "scrollLine": "26"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 1730305709,
+    "encoding": "UTF-8",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1730305709775,
+    "read_only": false,
+    "read_only_alternatives": []
+}

.Rproj.user/9A1153C7/sources/session-d5d26ab/48838293-contents

@@ -0,0 +1,87 @@
+library(shiny)
+library(shinydashboard)
+# library(shinyjs)
+
+# Encabezado general
+
+encabezado = dashboardHeader(title = "Estadística")
+
+# Panel lateral general: filtro de temas
+
+panelLateral = dashboardSidebar(
+  # useShinyjs(),
+  collapsed = FALSE,
+  sidebarMenu(
+    menuItem(
+      "Distribuciones muestrales", tabName = "DM", startExpanded = TRUE,
+      menuSubItem("TCL", tabName = "DM1")
+    )#,
+    # menuItem(
+    #   "Intervalos de confianza", tabName = "IC", startExpanded = TRUE,
+    #   menuSubItem("Para una media", tabName = "IC1"),
+    #   menuSubItem("Para dos medias", tabName = "IC2"),
+    #   menuSubItem("Para varianzas", tabName = "IC3")
+    # ),
+    # menuItem(
+    #   "Pruebas de Hipótesis", tabName = "PH", startExpanded = TRUE,
+    #   menuSubItem("Para una media", tabName = "PH1"),
+    #   menuSubItem("Para dos medias", tabName = "PH2"),
+    #   menuSubItem("Para varianzas", tabName = "PH3")
+    # ),
+    # menuItem(
+    #   "Regresión Lineal", tabName = "RL", startExpanded = TRUE,
+    #   menuSubItem("Simple", tabName = "RL1"),
+    #   menuSubItem("Múltiple", tabName = "RL2")
+    # )
+  )
+)
+
+# Paneles: cuerpo de cada panel del Panel lateral
+# Un cuerpo se puede volver a dividir en otro tipo de Layout
+
+simulador = actionButton(inputId = "go_DM1", label = "Simular")
+
+cuerpo_DM1 = sidebarLayout(
+  sidebarPanel(
+    width = 3,
+    selectInput(inputId = "distribucionDM1", label = "Distribución", choices = c("Normal", "Exponencial", "Binomial", "Poisson")),
+    conditionalPanel(
+      condition = "input.distribucionDM1 == 'Normal'",
+      sliderInput(inputId = "mediaDM1_normal", label = "Media poblacional", min = 0, max = 20, value = 12, step = 0.2),
+      sliderInput(inputId = "varianzaDM1_normal", label = "Varianza poblacional", min = 0, max = 20, value = 2, step = 0.1),
+    ),
+    conditionalPanel(
+      condition = "input.distribucionDM1 == 'Binomial'",
+      sliderInput(inputId = "nDM1_binomial", label = "Ensayos", min = 1, max = 100, value = 12, step = 1),
+      sliderInput(inputId = "pDM1_binomial", label = "Probabilidad de éxito", min = 0, max = 1, value = 0.4, step = 0.05),
+    ),
+    conditionalPanel(
+      condition = "input.distribucionDM1 == 'Exponencial'",
+      sliderInput(inputId = "tasaDM1_exponencial", label = "Tasa", min = 0, max = 20, value = 5, step = 0.1)
+    ),
+    conditionalPanel(
+      condition = "input.distribucionDM1 == 'Poisson'",
+      sliderInput(inputId = "tasaDM1_poisson", label = "Tasa", min = 0, max = 20, value = 8, step = 0.1)
+    ),
+    sliderInput(inputId = "nDM1", label = "Tamaño muestral", min = 100, max = 1000, value = 200, step = 50),
+    sliderInput(inputId = "simulacionesDM1", label = "Cantidad de simulaciones", min = 100, max = 7000, value = 1300, step = 100),
+    simulador
+  ),
+  mainPanel(
+    width = 9,
+    plotOutput("Histograma_promedios"), plotOutput("fdp_fmp_simulaciones")
+  )
+)
+
+cuerpo_DM2 = fluidPage()
+
+# Asignando los cuerpos por filtro
+hoja_DM1 = tabItem(tabName = "DM1", fluidPage(cuerpo_DM1))
+# hoja_DM2 = tabItem(tabName = "DM2", cuerpo_DM2)
+
+cuerpo = dashboardBody(
+  tabItems(hoja_DM1)
+)
+
+# Despliegue general
+ui = dashboardPage(encabezado, panelLateral, cuerpo, skin = "black")

.Rproj.user/9A1153C7/sources/session-d5d26ab/B2B60375

@@ -0,0 +1,26 @@
+{
+    "id": "B2B60375",
+    "path": "~/MEGA/Programación/Trabajos en R/Bookdown/Cursos de Estadística/App Shiny de cursos/App Estadistica/App/server.R",
+    "project_path": "App/server.R",
+    "type": "r_source",
+    "hash": "0",
+    "contents": "",
+    "dirty": false,
+    "created": 1730067928256.0,
+    "source_on_save": false,
+    "relative_order": 2,
+    "properties": {
+        "source_window_id": "",
+        "Source": "Source",
+        "cursorPosition": "16,58",
+        "scrollLine": "0"
+    },
+    "folds": "",
+    "lastKnownWriteTime": 1730305797,
+    "encoding": "UTF-8",
+    "collab_server": "",
+    "source_window": "",
+    "last_content_update": 1730305797264,
+    "read_only": false,
+    "read_only_alternatives": []
+}