Apéndice B: Selección de Parámetros Optimos para el Diseño del Diagrma EWMA

B.1 Selección de Parámetros Optimos para el Diseño del Diagrma EWMA (\({\textit{LMC}}_0 = 100\))

```{r}
#| label: tbl-optimo-ewma-lmc-100
#| tbl-cap:  "Longitud media de corrida bajo control para 100"
#| table-caption: left

optimo_ewma_LMC_100 <- data.frame(
  D = c(
    0, 0.25, 0.5, 0.75, 1, 1.25, 1.5,
    1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5,
    3.75, 4
  ),
  C1 = c(
    100, 38.9, 17.4, 10.8, 7.8, 6.2, 5.1,
    4.4, 3.8, 3.4, 3.1, 2.8, 2.6, 2.4, 2.3,
    2.2, 2.1
  ),
  C2 = c(
    100, 41.6, 17.6, 10.3, 7.2, 5.5, 4.5,
    3.8, 3.3, 3, 2.7, 2.5, 2.3, 2.1, 2, 1.9,
    1.8
  ),
  C3 = c(
    100, 4.7, 18.4, 10.3, 7, 5.3, 4.2,
    3.6, 3.1, 2.7, 2.5, 2.3, 2.1, 2, 1.8, 1.7,
    1.6
  ),
  C4 = c(
    100, 47.9, 19.5, 10.6, 7, 5.1, 4.1,
    3.4, 2.9, 2.6, 2.3, 2.1, 2, 1.8, 1.7, 1.6,
    1.5
  ),
  C5 = c(
    100, 50.8, 20.8, 11, 7.1, 5.1, 4, 3.3,
    2.8, 2.5, 2.2, 2, 1.8, 1.7, 1.6, 1.5,
    1.4
  ),
  C6 = c(
    100, 53.6, 2.3, 11.6, 7.2, 5.1, 4,
    3.2, 2.7, 2.4, 2.1, 1.9, 1.8, 1.6, 1.5,
    1.4, 1.3
  ),
  C7 = c(
    100, 56.2, 23.8, 12.2, 7.5, 5.2, 4,
    3.2, 2.7, 2.3, 2.1, 1.9, 1.7, 1.5, 1.4,
    1.3, 1.2
  ),
  C8 = c(
    100, 58.7, 25.5, 12.9, 7.8, 5.3, 4,
    3.2, 2.6, 2.3, 2, 1.8, 1.6, 1.5, 1.4, 1.3,
    1.2
  ),
  C9 = c(
    100, 61, 27.2, 13.8, 8.2, 5.5, 4, 3.2,
    2.6, 2.2, 2, 1.7, 1.6, 1.4, 1.3, 1.2,
    1.2
  ),
  C10 = c(
    100, 63.1, 28.9, 14.7, 8.6, 5.7, 4.1,
    3.2, 2.6, 2.2, 1.9, 1.7, 1.5, 1.4, 1.3,
    1.2, 1.1
  ),
  C11 = c(
    100, 65.3, 30.8, 15.7, 9.1, 5.9, 4.3,
    3.3, 2.6, 2.2, 1.9, 1.7, 1.5, 1.4, 1.3,
    1.2, 1.1
  ),
  C12 = c(
    100, 67.3, 32.6, 16.7, 9.7, 6.2, 4.4,
    3.3, 2.7, 2.2, 1.9, 1.7, 1.5, 1.4, 1.3,
    1.2, 1.1
  ),
  C13 = c(
    100, 69.4, 34.6, 17.9, 10.3, 6.6, 4.6,
    3.4, 2.7, 2.2, 1.9, 1.7, 1.5, 1.3, 1.2,
    1.2, 1.1
  ),
  C14 = c(
    100, 71.2, 36.7, 19.2, 11, 7, 4.8,
    3.5, 2.7, 2.2, 1.9, 1.6, 1.5, 1.3, 1.2,
    1.2, 1.1
  ),
  C15 = c(
    100, 73, 38.8, 20.5, 11.8, 7.4, 5,
    3.7, 2.8, 2.3, 1.9, 1.6, 1.5, 1.3, 1.2,
    1.1, 1.1
  ),
  C16 = c(
    100, 74.6, 40.8, 22, 12.7, 7.9, 5.3,
    3.8, 2.9, 2.3, 1.9, 1.6, 1.5, 1.3, 1.2,
    1.1, 1.1
  ),
  C17 = c(
    100, 76.2, 43, 23.6, 13.7, 8.5, 5.7,
    4, 3, 2.4, 2, 1.7, 1.5, 1.3, 1.2, 1.1,
    1.1
  ),
  C18 = c(
    100, 77.9, 45.3, 25.3, 14.8, 9.2, 6.1,
    4.3, 3.2, 2.5, 2, 1.7, 1.5, 1.3, 1.2,
    1.1, 1.1
  ),
  C19 = c(
    100, 79.5, 47.7, 27.2, 16, 9.9, 6.5,
    4.5, 3.3, 2.6, 2.1, 1.7, 1.5, 1.3, 1.2,
    1.1, 1.1
  ),
  C20 = c(
    100, 80.9, 50, 29.1, 17.3, 10.8, 7.1,
    4.9, 3.5, 2.7, 2.1, 1.8, 1.5, 1.3, 1.2,
    1.1, 1.1
  )
) |>
  data.table::as.data.table()

library(reactable)

options(
  reactable.language = reactable::reactableLang(
    searchPlaceholder = "Search...",
    pageNext = "Siguiente",
    pagePrevious = "Anterior",
    noData = "No entries found",
    pageInfo = "{rowStart} de {rowEnd} de {rows} filas"
  )
)

reactable::reactable(
  optimo_ewma_LMC_100,
  columns = list(
    D = colDef(
      header = "D", align = "right",
      sticky = "left",
      style = list(
        borderRight = "1px solid #eee", fontWeight = "bold"
      ),
      headerStyle = list(borderRight = "1px solid #eee"),
      format = colFormat(
        separators = TRUE, digits = 2, locales = "es-ES"
      )
    ),
    C1 = colDef(
      header = "L = 1,880", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C2 = colDef(
      header = "L = 2,142", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C3 = colDef(
      header = "L = 2,279", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C4 = colDef(
      header = "L = 2,360", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C5 = colDef(
      header = "L = 2,414", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C6 = colDef(
      header = "L = 2,453", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C7 = colDef(
      header = "L = 2,482", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C8 = colDef(
      header = "L = 2,504", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C9 = colDef(
      header = "L = 2,521", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C10 = colDef(
      header = "L = 2,534", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C11 = colDef(
      header = "L = 2,545", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C12 = colDef(
      header = "L = 2,553", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C13 = colDef(
      header = "L = 2,560", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C14 = colDef(
      header = "L = 2,565", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C15 = colDef(
      header = "L = 2,569", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C16 = colDef(
      header = "L = 2,571", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C17 = colDef(
      header = "L = 2,573", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C18 = colDef(
      header = "L = 2,575", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C19 = colDef(
      header = "L = 2,576", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C20 = colDef(
      header = "L = 2,576", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    )
  ),
  striped = TRUE,
  bordered = TRUE,
  highlight = TRUE,
  filterable = TRUE,
  minRows = 7,
  columnGroups = list(
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C1"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C2"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C3"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C4"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C5"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C6"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C7"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C8"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C9"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C10"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,55"), columns = "C11"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,60"), columns = "C12"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,65"), columns = "C13"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,70"), columns = "C14"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,75"), columns = "C15"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,80"), columns = "C16"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,85"), columns = "C17"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,90"), columns = "C18"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,95"), columns = "C19"
    ),
    colGroup(
      name = htmltools::HTML("λ = 1,00"), columns = "C20"
    )
  )
)
```

Tabla B.1: Longitud media de corrida bajo control para 100

B.2 Selección de Parámetros Optimos para el Diseño del Diagrma EWMA (\({\textit{LMC}}_0 = 250\))

```{r}
#| label: tbl-optimo-ewma-lmc-250
#| tbl-cap:  "Longitud media de corrida bajo control para 250"
#| table-caption: left

optimo_ewma_LMC_250 <- data.frame(
  D = c(
    0, 0.25, 0.5, 0.75, 1, 1.25, 1.5,
    1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5,
    3.75, 4
  ),
  C1 = c(
    250, 60.9, 23.6, 14, 9.9, 7.7, 6.3,
    5.3, 4.6, 4.1, 3.7, 3.4, 3.1, 2.9, 2.7,
    2.6, 2.4
  ),
  C2 = c(
    250, 71.2, 24.6, 13.3, 9, 6.7, 5.4,
    4.6, 3.9, 3.5, 3.1, 2.8, 2.6, 2.4, 2.3,
    2.2, 2.1
  ),
  C3 = c(
    250, 81.5, 27, 13.7, 8.8, 6.4, 5.1,
    4.2, 3.6, 3.2, 2.8, 2.6, 2.4, 2.2, 2.1, 2,
    1.9
  ),
  C4 = c(
    250, 91.5, 30, 14.4, 8.9, 6.3, 4.9, 4,
    3.4, 3, 2.6, 2.4, 2.2, 2.1, 1.9, 1.8,
    1.7
  ),
  C5 = c(
    250, 100.6, 33.4, 15.5, 9.2, 6.3, 4.8,
    3.9, 3.3, 2.8, 2.5, 2.3, 2.1, 1.9, 1.8,
    1.7, 1.6
  ),
  C6 = c(
    250, 109.3, 37.1, 16.8, 9.6, 6.5, 4.8,
    3.8, 3.2, 2.7, 2.4, 2.2, 2, 1.8, 1.7,
    1.6, 1.5
  ),
  C7 = c(
    250, 117.4, 41.1, 18.4, 10.2, 6.7,
    4.9, 3.8, 3.1, 2.7, 2.4, 2.1, 1.9, 1.8,
    1.6, 1.5, 1.4
  ),
  C8 = c(
    250, 125.3, 45.4, 20.1, 11, 7, 5, 3.8,
    3.1, 2.7, 2.3, 2.1, 1.9, 1.7, 1.6, 1.4,
    1.3
  ),
  C9 = c(
    250, 132.5, 49.7, 22, 11.8, 7.4, 5.1,
    3.9, 3.1, 2.6, 2.3, 2, 1.8, 1.6, 1.5,
    1.4, 1.3
  ),
  C10 = c(
    250, 139.2, 54.3, 24.2, 12.8, 7.8,
    5.4, 4, 3.2, 2.6, 2.2, 2, 1.8, 1.6, 1.5,
    1.3, 1.2
  ),
  C11 = c(
    250, 146, 59.1, 26.6, 13.9, 8.4, 5.6,
    4.1, 3.2, 2.6, 2.2, 1.9, 1.7, 1.6, 1.4,
    1.3, 1.2
  ),
  C12 = c(
    250, 152.1, 64.1, 29.1, 15.2, 9, 5.9,
    4.3, 3.3, 2.7, 2.2, 1.9, 1.7, 1.5, 1.4,
    1.3, 1.2
  ),
  C13 = c(
    250, 158, 69.2, 31.9, 16.6, 9.7, 6.3,
    4.5, 3.4, 2.7, 2.2, 1.9, 1.7, 1.5, 1.4,
    1.3, 1.2
  ),
  C14 = c(
    250, 163.6, 74.5, 35, 18.2, 10.6, 6.8,
    4.7, 3.5, 2.8, 2.3, 1.9, 1.7, 1.5, 1.4,
    1.2, 1.2
  ),
  C15 = c(
    250, 169.4, 80.1, 38.4, 20.1, 11.6,
    7.3, 5, 3.7, 2.8, 2.3, 1.9, 1.7, 1.5, 1.3,
    1.2, 1.2
  ),
  C16 = c(
    250, 174.7, 85.9, 42, 22.2, 12.8, 8,
    5.4, 3.9, 3, 2.4, 2, 1.7, 1.5, 1.3, 1.2,
    1.2
  ),
  C17 = c(
    250, 179.7, 91.8, 45.9, 24.5, 14.1,
    8.7, 5.8, 4.1, 3.1, 2.4, 2, 1.7, 1.5, 1.3,
    1.2, 1.1
  ),
  C18 = c(
    250, 184.6, 97.9, 50.1, 27, 15.6, 9.6,
    6.3, 4.4, 3.3, 2.5, 2.1, 1.7, 1.5, 1.3,
    1.2, 1.1
  ),
  C19 = c(
    250, 188.9, 104, 54.6, 29.9, 17.3,
    10.7, 7, 4.8, 3.5, 2.7, 2.1, 1.8, 1.5, 1.3,
    1.2, 1.1
  ),
  C20 = c(
    250, 193.3, 110.3, 59.5, 33.1, 19.3,
    11.9, 7.7, 5.3, 3.8, 2.8, 2.2, 1.8, 1.6,
    1.4, 1.2, 1.2
  )
) |>
  data.table::as.data.table()

options(
  reactable.language = reactable::reactableLang(
    searchPlaceholder = "Search...",
    pageNext = "Siguiente",
    pagePrevious = "Anterior",
    noData = "No entries found",
    pageInfo = "{rowStart} de {rowEnd} de {rows} filas"
  )
)

reactable::reactable(
  optimo_ewma_LMC_250,
  columns = list(
    D = colDef(
      header = "D", align = "right",
      sticky = "left",
      style = list(
        borderRight = "1px solid #eee", fontWeight = "bold"
      ),
      headerStyle = list(borderRight = "1px solid #eee"),
      format = colFormat(
        separators = TRUE, digits = 2, locales = "es-ES"
      )
    ),
    C1 = colDef(
      header = "L = 2,32", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C2 = colDef(
      header = "L = 2,55", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C3 = colDef(
      header = "L = 2,65", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C4 = colDef(
      header = "L = 2,72", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C5 = colDef(
      header = "L = 2,76", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C6 = colDef(
      header = "L = 2,79", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C7 = colDef(
      header = "L = 2,81", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C8 = colDef(
      header = "L = 2,83", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C9 = colDef(
      header = "L = 2,84", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C10 = colDef(
      header = "L = 2,85", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C11 = colDef(
      header = "L = 2,86", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C12 = colDef(
      header = "L = 2,86", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C13 = colDef(
      header = "L = 2,87", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C14 = colDef(
      header = "L = 2,87", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C15 = colDef(
      header = "L = 2.87", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C16 = colDef(
      header = "L = 2,88", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C17 = colDef(
      header = "L = 2.88", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C18 = colDef(
      header = "L = 2,88", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C19 = colDef(
      header = "L = 2,88", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C20 = colDef(
      header = "L = 2,88", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    )
  ),
  striped = TRUE,
  bordered = TRUE,
  highlight = TRUE,
  filterable = TRUE,
  minRows = 7,
  columnGroups = list(
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C1"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C2"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C3"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C4"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C5"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C6"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C7"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C8"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C9"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C10"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,55"), columns = "C11"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,60"), columns = "C12"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,65"), columns = "C13"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,70"), columns = "C14"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,75"), columns = "C15"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,80"), columns = "C16"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,85"), columns = "C17"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,90"), columns = "C18"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,95"), columns = "C19"
    ),
    colGroup(
      name = htmltools::HTML("λ = 1,00"), columns = "C20"
    )
  )
)
```

Tabla B.2: Longitud media de corrida bajo control para 250

B.3 Selección de Parámetros Optimos para el Diseño del Diagrma EWMA (\({\textit{LMC}}_0 = 370\))

```{r}
#| label: tbl-optimo-ewma-lmc-370
#| tbl-cap:  "Longitud media de corrida bajo control para 370"
#| table-caption: left

optimo_ewma_LMC_370 <- data.frame(
  D = c(
    0, 0.25, 0.5, 0.75, 1, 1.25, 1.5,
    1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5,
    3.75, 4
  ),
  C1 = c(
    370, 71.3, 26, 15.1, 10.6, 8.2, 6.7,
    5.7, 4.9, 4.4, 3.9, 3.6, 3.3, 3.1, 2.9,
    2.7, 2.5
  ),
  C2 = c(
    370, 89.2, 28.2, 14.7, 9.7, 7.3, 5.8,
    4.8, 4.2, 3.7, 3.3, 3, 2.8, 2.6, 2.4,
    2.2, 2.1
  ),
  C3 = c(
    370, 105.5, 31.8, 15.3, 9.6, 6.9, 5.4,
    4.5, 3.8, 3.3, 3, 2.7, 2.5, 2.3, 2.2,
    2.1, 2
  ),
  C4 = c(
    370, 121, 36.2, 16.4, 9.8, 6.8, 5.2,
    4.2, 3.6, 3.1, 2.8, 2.5, 2.3, 2.1, 2,
    1.9, 1.8
  ),
  C5 = c(
    370, 135, 41.1, 18, 10.2, 6.9, 5.2,
    4.1, 3.5, 3, 2.6, 2.4, 2.2, 2, 1.9, 1.8,
    1.7
  ),
  C6 = c(
    370, 149.1, 46.5, 19.8, 10.9, 7.1,
    5.2, 4.1, 3.4, 2.9, 2.6, 2.3, 2.1, 1.9,
    1.8, 1.7, 1.6
  ),
  C7 = c(
    370, 161.6, 52.3, 22, 11.7, 7.4, 5.3,
    4.1, 3.4, 2.8, 2.5, 2.2, 2, 1.8, 1.7,
    1.6, 1.5
  ),
  C8 = c(
    370, 173.9, 58.5, 24.4, 12.7, 7.8,
    5.5, 4.2, 3.3, 2.8, 2.4, 2.2, 1.9, 1.8,
    1.6, 1.5, 1.4
  ),
  C9 = c(
    370, 184.9, 64.8, 27.1, 13.9, 8.4,
    5.7, 4.2, 3.4, 2.8, 2.4, 2.1, 1.9, 1.7,
    1.6, 1.4, 1.3
  ),
  C10 = c(
    370, 196.2, 71.7, 30.2, 15.2, 9, 6,
    4.4, 3.4, 2.8, 2.4, 2.1, 1.9, 1.7, 1.5,
    1.4, 1.3
  ),
  C11 = c(
    370, 206.4, 78.7, 33.6, 16.8, 9.7,
    6.3, 4.5, 3.5, 2.8, 2.4, 2.1, 1.8, 1.6,
    1.5, 1.4, 1.3
  ),
  C12 = c(
    370, 215.9, 86, 37.2, 18.6, 10.6, 6.8,
    4.8, 3.6, 2.9, 2.4, 2, 1.8, 1.6, 1.5,
    1.3, 1.3
  ),
  C13 = c(
    370, 225.6, 93.7, 41.3, 20.6, 11.6,
    7.3, 5, 3.7, 2.9, 2.4, 2, 1.8, 1.6, 1.4,
    1.3, 1.2
  ),
  C14 = c(
    370, 234.2, 101.5, 45.7, 22.9, 12.8,
    7.9, 5.4, 3.9, 3, 2.5, 2.1, 1.8, 1.6,
    1.4, 1.3, 1.2
  ),
  C15 = c(
    370, 242.8, 109.8, 50.5, 25.4, 14.2,
    8.7, 5.8, 4.1, 3.1, 2.5, 2.1, 1.8, 1.6,
    1.4, 1.3, 1.2
  ),
  C16 = c(
    370, 251.5, 118.5, 55.8, 28.4, 15.8,
    9.6, 6.3, 4.4, 3.3, 2.6, 2.1, 1.8, 1.6,
    1.4, 1.3, 1.2
  ),
  C17 = c(
    370, 259.5, 127.3, 61.4, 31.6, 17.6,
    10.6, 6.9, 4.8, 3.5, 2.7, 2.2, 1.8, 1.6,
    1.4, 1.3, 1.2
  ),
  C18 = c(
    370, 266.5, 136.2, 67.4, 35.2, 19.7,
    11.8, 7.6, 5.2, 3.7, 2.8, 2.3, 1.9, 1.6,
    1.4, 1.3, 1.2
  ),
  C19 = c(
    370, 274.3, 145.7, 74.1, 39.4, 22.2,
    13.3, 8.4, 5.7, 4, 3, 2.4, 1.9, 1.6, 1.4,
    1.3, 1.2
  ),
  C20 = c(
    370, 281.2, 155.2, 81.2, 43.9, 25, 15,
    9.5, 6.3, 4.4, 3.2, 2.5, 2, 1.7, 1.4,
    1.3, 1.2
  )
) |>
  data.table::as.data.table()

options(
  reactable.language = reactable::reactableLang(
    searchPlaceholder = "Search...",
    pageNext = "Siguiente",
    pagePrevious = "Anterior",
    noData = "No entries found",
    pageInfo = "{rowStart} de {rowEnd} de {rows} filas"
  )
)

library(reactable)

reactable::reactable(
  optimo_ewma_LMC_370,
  columns = list(
    D = colDef(
      header = "D", align = "right",
      sticky = "left",
      style = list(
        borderRight = "1px solid #eee", fontWeight = "bold"
      ),
      headerStyle = list(borderRight = "1px solid #eee"),
      format = colFormat(
        separators = TRUE, digits = 2, locales = "es-ES"
      )
    ),
    C1 = colDef(
      header = "L = 2,466", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C2 = colDef(
      header = "L = 2,701", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C3 = colDef(
      header = "L = 2,800", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C4 = colDef(
      header = "L = 2,859", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C5 = colDef(
      header = "L = 2,898", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C6 = colDef(
      header = "L = 2,925", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C7 = colDef(
      header = "L = 2,944", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C8 = colDef(
      header = "L = 2,959", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C9 = colDef(
      header = "L = 2,969", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C10 = colDef(
      header = "L = 2,978", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C11 = colDef(
      header = "L = 2,984", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C12 = colDef(
      header = "L = 2,988", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C13 = colDef(
      header = "L = 2,992", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C14 = colDef(
      header = "L = 2,994", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C15 = colDef(
      header = "L = 2,996", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C16 = colDef(
      header = "L = 2,998", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C17 = colDef(
      header = "L = 2,999", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C18 = colDef(
      header = "L = 2,999", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C19 = colDef(
      header = "L = 3,000", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C20 = colDef(
      header = "L = 3,000", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    )
  ),
  striped = TRUE,
  bordered = TRUE,
  highlight = TRUE,
  filterable = TRUE,
  minRows = 7,
  columnGroups = list(
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C1"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C2"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C3"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C4"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C5"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C6"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C7"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C8"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C9"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C10"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,55"), columns = "C11"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,60"), columns = "C12"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,65"), columns = "C13"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,70"), columns = "C14"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,75"), columns = "C15"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,80"), columns = "C16"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,85"), columns = "C17"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,90"), columns = "C18"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,95"), columns = "C19"
    ),
    colGroup(
      name = htmltools::HTML("λ = 1"), columns = "C20"
    )
  )
)
```

Tabla B.3: Longitud media de corrida bajo control para 370

B.4 Selección de Parámetros Optimos para el Diseño del Diagrma EWMA (\({\textit{LMC}}_0 = 500\))

```{r}
#| label: tbl-optimo-ewma-lmc-500
#| tbl-cap:  "Longitud media de corrida bajo control para 500"
#| table-caption: left


optimo_ewma_LMC_500 <- data.frame(
  D = c(
    0, 0.25, 0.5, 0.75, 1, 1.25, 1.5,
    1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5,
    3.75, 4
  ),
  C1 = c(
    500, 84, 28.8, 16.4, 11.4, 8.7, 7.1,
    6, 5.2, 4.6, 4.2, 3.8, 3.5, 3.2, 3, 2.9,
    2.7
  ),
  C2 = c(
    500, 106.3, 31.3, 15.8, 10.3, 7.6,
    6.1, 5.1, 4.4, 3.8, 3.4, 3.1, 2.9, 2.7,
    2.5, 2.3, 2.2
  ),
  C3 = c(
    500, 128.8, 36, 16.7, 10.2, 7.3, 5.7,
    4.7, 4, 3.5, 3.1, 2.8, 2.6, 2.4, 2.2,
    2.1, 2
  ),
  C4 = c(
    500, 150.2, 41.8, 18.1, 10.5, 7.2,
    5.5, 4.4, 3.7, 3.2, 2.9, 2.6, 2.4, 2.2,
    2.1, 2, 1.9
  ),
  C5 = c(
    500, 170.3, 48.3, 20.1, 11.1, 7.4,
    5.5, 4.3, 3.6, 3.1, 2.7, 2.5, 2.3, 2.1, 2,
    1.8, 1.7
  ),
  C6 = c(
    500, 189.2, 55.4, 22.5, 12, 7.7, 5.5,
    4.3, 3.5, 3, 2.7, 2.4, 2.2, 2, 1.9, 1.7,
    1.6
  ),
  C7 = c(
    500, 207, 63.1, 25.3, 13, 8.1, 5.7,
    4.3, 3.5, 3, 2.6, 2.3, 2.1, 1.9, 1.8, 1.6,
    1.5
  ),
  C8 = c(
    500, 223.7, 71.2, 28.4, 14.3, 8.6,
    5.9, 4.4, 3.5, 2.9, 2.5, 2.2, 2, 1.8, 1.7,
    1.6, 1.4
  ),
  C9 = c(
    500, 239.8, 79.8, 32, 15.8, 9.2, 6.2,
    4.5, 3.6, 2.9, 2.5, 2.2, 2, 1.8, 1.6,
    1.5, 1.4
  ),
  C10 = c(
    500, 254.8, 88.8, 35.9, 17.5, 10, 6.5,
    4.7, 3.6, 3, 2.5, 2.2, 1.9, 1.7, 1.6,
    1.4, 1.3
  ),
  C11 = c(
    500, 269.7, 98.4, 40.3, 19.5, 10.9, 7,
    4.9, 3.7, 3, 2.5, 2.2, 1.9, 1.7, 1.5,
    1.4, 1.3
  ),
  C12 = c(
    500, 283.4, 108.3, 45.2, 21.8, 12.1,
    7.5, 5.2, 3.9, 3.1, 2.5, 2.1, 1.9, 1.7,
    1.5, 1.4, 1.3
  ),
  C13 = c(
    500, 296.6, 118.6, 50.5, 24.4, 13.3,
    8.2, 5.5, 4, 3.1, 2.6, 2.2, 1.9, 1.6,
    1.5, 1.4, 1.3
  ),
  C14 = c(
    500, 309, 129.2, 56.2, 27.3, 14.8, 9,
    5.9, 4.3, 3.3, 2.6, 2.2, 1.9, 1.6, 1.5,
    1.3, 1.2
  ),
  C15 = c(
    500, 321.5, 140.5, 62.6, 30.7, 16.6,
    9.9, 6.5, 4.5, 3.4, 2.7, 2.2, 1.9, 1.6,
    1.5, 1.3, 1.2
  ),
  C16 = c(
    500, 333, 152, 69.5, 34.4, 18.6, 11,
    7.1, 4.9, 3.6, 2.8, 2.3, 1.9, 1.6, 1.5,
    1.3, 1.2
  ),
  C17 = c(
    500, 343.3, 163.6, 76.8, 38.6, 21,
    12.3, 7.8, 5.3, 3.8, 2.9, 2.3, 1.9, 1.6,
    1.5, 1.3, 1.2
  ),
  C18 = c(
    500, 354.5, 176.1, 85, 43.4, 23.7,
    13.9, 8.7, 5.8, 4.1, 3.1, 2.4, 2, 1.6, 1.5,
    1.3, 1.2
  ),
  C19 = c(
    500, 364.3, 188.6, 93.7, 48.6, 26.8,
    15.7, 9.8, 6.5, 4.5, 3.3, 2.6, 2.1, 1.6,
    1.5, 1.3, 1.2
  ),
  C20 = c(
    500, 373.9, 201.4, 103.1, 54.6, 30.4,
    17.9, 11.1, 7.3, 5, 3.6, 2.7, 2.2, 1.6,
    1.5, 1.3, 1.2
  )
) |>
  data.table::as.data.table()

options(
  reactable.language = reactable::reactableLang(
    searchPlaceholder = "Search...",
    pageNext = "Siguiente",
    pagePrevious = "Anterior",
    noData = "No entries found",
    pageInfo = "{rowStart} de {rowEnd} de {rows} filas"
  )
)

reactable::reactable(
  optimo_ewma_LMC_500,
  columns = list(
    D = colDef(
      header = "D", align = "right",
      sticky = "left",
      style = list(
        borderRight = "1px solid #eee", fontWeight = "bold"
      ),
      headerStyle = list(borderRight = "1px solid #eee"),
      format = colFormat(
        separators = TRUE, digits = 2, locales = "es-ES"
      )
    ),
    C1 = colDef(
      header = "L = 1,52", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C2 = colDef(
      header = "L = 1,81", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C3 = colDef(
      header = "L = 1,96", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C4 = colDef(
      header = "L = 2,05", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C5 = colDef(
      header = "L = 2,12", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C6 = colDef(
      header = "L = 2,17", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C7 = colDef(
      header = "L = 2,20", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C8 = colDef(
      header = "L = 2,23", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C9 = colDef(
      header = "L = 2,25", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C10 = colDef(
      header = "L = 2,27", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C11 = colDef(
      header = "L = 2,28", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C12 = colDef(
      header = "L = 2,29", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C13 = colDef(
      header = "L = 2,30", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C14 = colDef(
      header = "L = 2,31", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C15 = colDef(
      header = "L = 2,32", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C16 = colDef(
      header = "L = 2,32", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C17 = colDef(
      header = "L = 2,32", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C18 = colDef(
      header = "L = 2,33", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C19 = colDef(
      header = "L = 2,33", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C20 = colDef(
      header = "L = 3", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    )
  ),
  striped = TRUE,
  bordered = TRUE,
  highlight = TRUE,
  filterable = TRUE,
  minRows = 7,
  columnGroups = list(
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C1"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C2"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C3"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C4"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C5"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C6"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C7"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C8"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C9"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C10"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C11"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C12"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C13"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C14"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C15"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C16"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C17"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C18"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C19"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C20"
    )
  )
)
```

Tabla B.4: Longitud media de corrida bajo control para 500

B.5 Selección de Parámetros Optimos para el Diseño del Diagrma EWMA (\({\textit{LMC}}_0 = 700\))

```{r}
#| label: tbl-optimo-ewma-lmc-700
#| tbl-cap:  "Longitud media de corrida bajo control para 700"
#| table-caption: left


optimo_ewma_LMC_700 <- data.frame(
  D = c(
    0, 0.25, 0.5, 0.75, 1, 1.25, 1.5,
    1.75, 2, 2.25, 2.5, 2.75, 3, 3.25, 3.5,
    3.75, 4
  ),
  C1 = c(
    750, 101, 32, 17.8, 12.2, 9.3, 7.6,
    6.4, 5.5, 4.9, 4.4, 4, 3.7, 3.4, 3.2, 3,
    2.8
  ),
  C2 = c(
    750, 135.1, 36, 17.4, 11.1, 8.2, 6.5,
    5.4, 4.8, 4, 3.6, 3.3, 3, 2.8, 2.6, 2.4,
    2.3
  ),
  C3 = c(
    750, 168.2, 42.7, 18.7, 11.1, 7.8, 6,
    4.9, 4.2, 3.6, 3.2, 2.9, 2.7, 2.5, 2.3,
    2.2, 2.1
  ),
  C4 = c(
    750, 202.1, 50.9, 20.8, 11.6, 7.8,
    5.9, 4.7, 3.9, 3.4, 3, 2.7, 2.5, 2.3, 2.1,
    2, 1.9
  ),
  C5 = c(
    750, 232.6, 30.2, 23.5, 12.5, 8, 5.9,
    4.6, 3.8, 3.3, 2.9, 2.8, 2.3, 2.2, 2,
    1.9, 1.8
  ),
  C6 = c(
    750, 262, 70.5, 26.8, 13.6, 8.4, 6,
    4.6, 3.8, 3.2, 2.8, 2.5, 2.3, 2.1, 1.9,
    1.8, 1.7
  ),
  C7 = c(
    750, 289.5, 81.6, 30.6, 15, 9, 6.2,
    4.7, 3.7, 3.1, 2.7, 2.4, 2.2, 2, 1.8, 1.7,
    1.6
  ),
  C8 = c(
    750, 315.1, 93.3, 35, 16.7, 9.7, 6.5,
    4.8, 3.8, 3.1, 2.7, 2.4, 2.1, 1.9, 1.8,
    1.6, 1.5
  ),
  C9 = c(
    750, 340.3, 106, 40, 18.8, 10.6, 6.9,
    4.9, 3.8, 3.1, 2.7, 2.3, 2.1, 1.9, 1.7,
    1.6, 1.4
  ),
  C10 = c(
    750, 363.7, 119.1, 45.6, 21.1, 11.6,
    7.3, 5.2, 3.9, 3.2, 2.7, 2.3, 2, 1.8,
    1.7, 1.5, 1.4
  ),
  C11 = c(
    750, 386.7, 133.2, 51.6, 23.9, 12.9,
    7.9, 5.5, 4.1, 3.2, 2.7, 2.3, 2, 1.8,
    1.6, 1.5, 1.4
  ),
  C12 = c(
    750, 407.7, 147.6, 58.7, 27, 14.4,
    8.7, 5.8, 4.3, 3.3, 2.7, 2.3, 2, 1.8, 1.6,
    1.4, 1.3
  ),
  C13 = c(
    750, 429.1, 163.1, 66.3, 30.7, 16.1,
    9.6, 6.3, 4.5, 3.4, 2.8, 2.3, 2, 1.7,
    1.6, 1.4, 1.3
  ),
  C14 = c(
    750, 447.8, 178.7, 74.5, 34.7, 18.2,
    10.6, 6.8, 4.8, 3.6, 2.8, 2.3, 2, 1.7,
    1.5, 1.4, 1.3
  ),
  C15 = c(
    750, 467.8, 195.7, 83.8, 39.5, 20.6,
    11.9, 7.5, 5.2, 3.8, 2.9, 2.4, 2, 1.7,
    1.5, 1.4, 1.3
  ),
  C16 = c(
    750, 486.2, 213, 93.8, 44.8, 23.4,
    13.4, 8.4, 5.6, 4, 3.1, 2.5, 2, 1.7, 1.5,
    1.4, 1.3
  ),
  C17 = c(
    750, 502.7, 230.4, 104.5, 50.7, 26.7,
    15.2, 9.4, 6.2, 4.4, 3.3, 2.6, 2.1, 1.8,
    1.5, 1.4, 1.3
  ),
  C18 = c(
    750, 520.4, 249.3, 116.4, 57.5, 30.5,
    17.4, 10.6, 6.9, 4.8, 3.5, 2.7, 2.2,
    1.8, 1.6, 1.4, 1.3
  ),
  C19 = c(
    750, 536, 268.1, 129.1, 65.1, 34.9,
    19.9, 12.1, 7.8, 5.3, 3.8, 2.9, 2.3, 1.9,
    1.6, 1.4, 1.3
  ),
  C20 = c(
    750, 551.2, 287.5, 142.8, 73.5, 39.9,
    22.9, 13.8, 8.8, 5.9, 4.2, 3.1, 2.4,
    1.9, 1.6, 1.4, 1.3
  )
) |>
  data.table::as.data.table()

options(
  reactable.language = reactable::reactableLang(
    searchPlaceholder = "Search...",
    pageNext = "Siguiente",
    pagePrevious = "Anterior",
    noData = "No entries found",
    pageInfo = "{rowStart} de {rowEnd} de {rows} filas"
  )
)

reactable::reactable(
  optimo_ewma_LMC_700,
  columns = list(
    D = colDef(
      header = "D", align = "right",
      sticky = "left",
      style = list(
        borderRight = "1px solid #eee", fontWeight = "bold"
      ),
      headerStyle = list(borderRight = "1px solid #eee"),
      format = colFormat(
        separators = TRUE, digits = 2, locales = "es-ES"
      )
    ),
    C1 = colDef(
      header = "L = 2,775", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C2 = colDef(
      header = "L = 2,960", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C3 = colDef(
      header = "L = 3,045", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C4 = colDef(
      header = "L = 3,096", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C5 = colDef(
      header = "L = 3,128", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C6 = colDef(
      header = "L = 3,151", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C7 = colDef(
      header = "L = 3,167", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C8 = colDef(
      header = "L = 3,178", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C9 = colDef(
      header = "L = 3,187", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C10 = colDef(
      header = "L = 3,193", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C11 = colDef(
      header = "L = 3,198", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C12 = colDef(
      header = "L = 3,201", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C13 = colDef(
      header = "L = 3,204", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C14 = colDef(
      header = "L = 3,205", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C15 = colDef(
      header = "L = 3,207", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C16 = colDef(
      header = "L = 3,208", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C17 = colDef(
      header = "L = 3,208", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C18 = colDef(
      header = "L = 3,209", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C19 = colDef(
      header = "L = 3,209", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    ),
    C20 = colDef(
      header = "L = 3,209", align = "center",
      format = colFormat(
        separators = TRUE, digits = 1, locales = "es-ES"
      )
    )
  ),
  striped = TRUE,
  bordered = TRUE,
  highlight = TRUE,
  filterable = TRUE,
  minRows = 7,
  columnGroups = list(
    colGroup(
      name = htmltools::HTML("λ = 0,05"), columns = "C1"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,10"), columns = "C2"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,15"), columns = "C3"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,20"), columns = "C4"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,25"), columns = "C5"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,30"), columns = "C6"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,35"), columns = "C7"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,40"), columns = "C8"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,45"), columns = "C9"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,50"), columns = "C10"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,55"), columns = "C11"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,60"), columns = "C12"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,65"), columns = "C13"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,70"), columns = "C14"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,75"), columns = "C15"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,80"), columns = "C16"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,85"), columns = "C17"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,90"), columns = "C18"
    ),
    colGroup(
      name = htmltools::HTML("λ = 0,95"), columns = "C19"
    ),
    colGroup(
      name = htmltools::HTML("λ = 1,00"), columns = "C20"
    )
  )
)
```

Tabla B.5: Longitud media de corrida bajo control para 700