El papel de la estadística en la investigación científica

class: top, left, title-slide

.title[
# El papel de la estadística en la investigación científica
]
.author[
### Angelo Santana
]

---

layout: true
background-image: url(http://estadistica-dma.ulpgc.es/imagenes/uni2.png)
background-size: 50% 75%

---

## Presentación: La era de los Datos

<video width="960" height="540" autoplay loop>
 <source src="http://estadistica-dma.ulpgc.es/imagenes/lluviaDatos2.mp4" type="video/mp4">
 Tu navegador no soporta el elemento de video.
</video>

---

## ¿Qué es la estadística?

---
## Un poco de historia

---
## Un poco de historia

"Archivo de datos" egipcio.

---
## Un poco de historia

---

## Un poco de historia

---

##  Un poco de historia

Base de datos "ligeramente" desordenada.
---

## Un poco de historia

.pull-left[

]

.pull-right[

* __Año 1690:__ Sir William Petty escribe el libro [_"Political Arithmetic"_](https://www.marxists.org/reference/subject/economics/petty/)

* Para Petty la _aritmética política_ es una forma de ciencia que solo utilizaría fenómenos medibles y buscaría precisión cuantitativa, en lugar de depender de comparativos o superlativos, para describir adecuadamente _las cosas del gobierno_.

]

---

## Un poco de historia: por fin, la Estadística

.pull-left[

]

.pull-right[

* __Año 1749:__ Primer uso de la palabra _"Estadística" (Statistic)_, definida como la _ciencia dedicada al estudio de la situación del estado_.

* Aparece en este libro del economista alemán Gottfried Achenwall: [_"Resumen de la más reciente Ciencia Estatal de las principales naciones europeas y repúblicas para uso en sus Conferencias Académicas"_](https://www.deutschestextarchiv.de/book/view/achenwall_staatswissenschaft_1749/?p=15&hl=Statistic)

]

---

## Un poco de historia

Mientras los economistas desarrollaban la ciencia del estado (la _"Estadística"_), en Francia ...

---

## Un poco de historia: La probabilidad

---

## Un poco de historia

Carl Friedrich Gauss.

---

## Un poco de historia

Datos de posiciones del planeta enano Ceres recopilados en 1801 por Giuseppe Piazzi.

---

## Un poco de historia

Dado un conjunto de observaciones de la posición de un planeta, el método de mínimos cuadrados permite determinar la ecuación de la elipse que mejor se ajusta a dicho conjunto de observaciones:

---

## Un poco de historia: La Estadística Matemática

---

## El método científico

---

## El método científico

Aportaciones de la estadística al método científico:

* .blue[__Observación__.] Estadística exploratoria: tablas, gráficos y medidas de resumen que permiten visualizar los resultados y apreciar las tendencias o regularidades presentes en los datos.

* .blue[__Diseño de experimentos__.] ¿Cuántas observaciones realizar? ¿Cuántas veces deben repetirse?

* .blue[__Contraste de hipótesis:__.] Estadística inferencial: métodos para decidir sobre la validez de una hipótesis científica en ambiente de incertidumbre. Estimación de parámetros.

---

## Ejemplo 1: verificación de la ley de gravitación universal

.pull-left[

Si se deja caer una bola de plomo desde 10 metros de altura, el tiempo que tardará en llegar al suelo es:
`$$t=\sqrt{\frac{2h}{g}}=1.429$$`
]

.pull-right[

Se realizan diez experimentos con estos resultados:

<div class="tabwid"><style>.cl-1bc9a556{}.cl-1b744188{font-family:'DejaVu Sans';font-size:11pt;font-weight:bold;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1b74419c{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1bc31e70{margin:0;text-align:right;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);padding-bottom:5pt;padding-top:5pt;padding-left:5pt;padding-right:5pt;line-height: 1;background-color:transparent;}.cl-1bc34e7c{width:0.833in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34e86{width:0.821in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34e9a{width:0.833in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34e9b{width:0.821in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34ea4{width:0.833in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34ea5{width:0.821in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34eae{width:0.833in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bc34eb8{width:0.821in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}</style><table data-quarto-disable-processing='true' class='cl-1bc9a556'><thead><tr style="overflow-wrap:break-word;"><th class="cl-1bc34e7c">ensayo</th><th class="cl-1bc34e86">tiempo</th></tr></thead><tbody><tr style="overflow-wrap:break-word;"><td class="cl-1bc34e9a">1</td><td class="cl-1bc34e9b">1.427</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34ea4">2</td><td class="cl-1bc34ea5">1.429</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34eae">3</td><td class="cl-1bc34eb8">1.430</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34ea4">4</td><td class="cl-1bc34ea5">1.426</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34eae">5</td><td class="cl-1bc34eb8">1.429</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34ea4">6</td><td class="cl-1bc34ea5">1.429</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34eae">7</td><td class="cl-1bc34eb8">1.428</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34ea4">8</td><td class="cl-1bc34ea5">1.429</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34eae">9</td><td class="cl-1bc34eb8">1.428</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bc34ea4">10</td><td class="cl-1bc34ea5">1.430</td></tr></tbody></table></div>

]

.resalta[Estimación del tiempo de caída: .blue[1.4285 segs],   .red[IC95%: [ 1.4276, 1.4294] ]]

---

## Ejemplo 2: tratamiento para adelgazar

Diez voluntarios prueban un nuevo tratamiento para adelgazar, consistente en tomar una pastilla antes de cada comida. Los resultados son los siguientes:

.left-column[
<div class="tabwid"><style>.cl-1bf22cba{}.cl-1be7ce1e{font-family:'DejaVu Sans';font-size:11pt;font-weight:bold;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1be7ce32{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1be7ce33{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(255, 0, 0, 1.00);background-color:transparent;}.cl-1becce50{margin:0;text-align:right;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);padding-bottom:5pt;padding-top:5pt;padding-left:5pt;padding-right:5pt;line-height: 1;background-color:transparent;}.cl-1bece0ac{width:0.751in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bece0b6{width:1.407in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bece0b7{width:0.751in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bece0c0{width:1.407in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bece0c1{width:0.751in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1bece0c2{width:1.407in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}</style><table data-quarto-disable-processing='true' class='cl-1bf22cba'><thead><tr style="overflow-wrap:break-word;"><th class="cl-1bece0ac">sujeto</th><th class="cl-1bece0b6">Variación Peso</th></tr></thead><tbody><tr style="overflow-wrap:break-word;"><td class="cl-1bece0b7">1</td><td class="cl-1bece0c0">0.127</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0c1">2</td><td class="cl-1bece0c2">-0.628</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0b7">3</td><td class="cl-1bece0c0">-1.521</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0c1">4</td><td class="cl-1bece0c2">-0.856</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0b7">5</td><td class="cl-1bece0c0">0.587</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0c1">6</td><td class="cl-1bece0c2">-1.976</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0b7">7</td><td class="cl-1bece0c0">0.194</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0c1">8</td><td class="cl-1bece0c2">-1.365</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0b7">9</td><td class="cl-1bece0c0">0.213</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1bece0c1">10</td><td class="cl-1bece0c2">-1.116</td></tr></tbody></table></div>
]

.right-column[
<img src="Estadística_y_Ciencia_files/figure-html/unnamed-chunk-18-1.png" width="95%" />

¿Ha sido efectivo el tratamiento?

]

---

## Ejemplo 2: tratamiento para adelgazar

Resultado en los sujetos sometidos a tratamiento:

* 6 sujetos bajaron de peso (una media de .blue[1.244 kg])

* 4 sujetos subieron de peso (una media de .blue[0.280 kg])

* La variación media de peso global fue de .blue[-0.634 kg] .red[(IC95%: [-1.260, -0.010])]

¿Qué concluímos?

---

## Ejemplo 2: tratamiento para adelgazar

Se necesita un .blue[__grupo control__]. Otros 10 voluntarios que toman placebo pero creen que toman el tratamiento. Resultados:

.left-column[
<div class="tabwid"><style>.cl-1c58c6f0{}.cl-1c4dbabc{font-family:'DejaVu Sans';font-size:11pt;font-weight:bold;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1c4dbac6{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1c4dbac7{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(255, 0, 0, 1.00);background-color:transparent;}.cl-1c511c7a{margin:0;text-align:right;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);padding-bottom:5pt;padding-top:5pt;padding-left:5pt;padding-right:5pt;line-height: 1;background-color:transparent;}.cl-1c512ea4{width:0.751in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1c512ea5{width:1.407in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1c512eae{width:0.751in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1c512eb8{width:1.407in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1c512eb9{width:0.751in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1c512ec2{width:1.407in;background-color:transparent;vertical-align: middle;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}</style><table data-quarto-disable-processing='true' class='cl-1c58c6f0'><thead><tr style="overflow-wrap:break-word;"><th class="cl-1c512ea4">sujeto</th><th class="cl-1c512ea5">Variación Peso</th></tr></thead><tbody><tr style="overflow-wrap:break-word;"><td class="cl-1c512eae">11</td><td class="cl-1c512eb8">0.324</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eb9">12</td><td class="cl-1c512ec2">-2.261</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eae">13</td><td class="cl-1c512eb8">-0.830</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eb9">14</td><td class="cl-1c512ec2">-1.629</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eae">15</td><td class="cl-1c512eb8">1.938</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eb9">16</td><td class="cl-1c512ec2">0.078</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eae">17</td><td class="cl-1c512eb8">-0.809</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eb9">18</td><td class="cl-1c512ec2">-1.867</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eae">19</td><td class="cl-1c512eb8">1.524</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1c512eb9">20</td><td class="cl-1c512ec2">0.683</td></tr></tbody></table></div>
]

.right-column[
<img src="Estadística_y_Ciencia_files/figure-html/unnamed-chunk-20-1.png" width="95%" />

]

---

## Ejemplo 2: tratamiento para adelgazar

Resultado en los sujetos del grupo control:

* 4 sujetos bajaron de peso (una media de .blue[1.479 kg]). ¡Han adelgazado más que los del otro grupo!

* 6 sujetos subieron de peso (una media de .blue[0.909 kg]). Éstos engordaron más que los del otro grupo.

* En realidad lo que interesa es comparar la variación de peso en el grupo tratado con la variación de peso en el grupo control. La diferencia entre ambas es .blue[-0.349 kg] (.red[IC95%: [-1.480, 0.782]])

* ¿Qué podemos concluir de este resultado?

---

## Ejemplo 2: tratamiento para adelgazar. El p-valor

* En estadística para comparar resultados experimentales usamos el .blue[__p-valor__].

* El p-valor mide la probabilidad de que en el experimento ocurra una diferencia como la observada bajo la hipótesis de que .red[__no hay diferencia__] entre tomar el tratamiento y tomar placebo.

* En este caso .blue[p-valor=0.26]; es una probabilidad relativamente alta, lo que significa que el resultado del experimento es perfectamente esperable (muy probable) si el tratamiento no tiene efecto.

* .blue[__CONCLUSIÓN:__] el tratamiento .red[__no ha demostrado__] ser más efectivo que tomar un placebo.

---

## Ejemplo 3: La vacuna de Pfizer-BioNtech contra la COVID-19

¿Cómo se demostró la efectividad de la vacuna de Pfizer contra la COVID-19?

---

## Ejemplo 3: La vacuna de Pfizer-BioNtech contra la COVID-19

<div class="figure" style="text-align: center">
<img src="ensayo Covid Pfizer.png" alt="Resultados del ensayo clínico de la vacuna de Pfizer contra la COVID-19." width="80%" />
Resultados del ensayo clínico de la vacuna de Pfizer contra la COVID-19.
</div>

---

## Ejemplo 3: La vacuna de Pfizer-BioNtech contra la COVID-19

* En este caso, el p-valor (probabilidad de que ocurriese el resultado observado) si la vacuna no hubiese tenido efecto es menor que una milbillonésima (.red[p-valor < 0.000000000000001])

* Eso es tanto como decir que el resultado del experimento habría sido imposible en caso de que la vacuna no fuera efectiva.

* Por tanto, el experimento .blue[__demostró evidencia suficiente__] del efecto de la vacuna.

* El efecto de la vacuna, además, fue relevante; de cada 10.000 no vacunados enfermaron 90; de cada 10.000 vacunados enfermaron 4. Eso significa que, de haberse puesto la vacuna, probablemente 86 de los 90 no vacunados no habrían contraído la enfermedad. Eso da una eficacia de `$100\cdot86/90=95.5\%$` con un IC95% de [90.3%, 97.6%]

---

## Ejemplo 4: ¿En qué mes nacen los jugadores de fútbol?

<div class="figure" style="text-align: center">
<img src="Estadística_y_Ciencia_files/figure-html/fig-varones-1.png" alt="Porcentajes de niños varones nacidos cada mes en España entre 2009 y 2022 (fuente: INE)" />
Porcentajes de niños varones nacidos cada mes en España entre 2009 y 2022 (fuente: INE)
</div>

.blue[¿Qué esperaríamos que ocurriese si hiciéramos la misma gráfica con los meses de nacimiento de los jugadores de fútbol de las ligas españolas de 1ª y 2ª?]

---

## Ejemplo 4: ¿En qué mes nacen los jugadores de fútbol?

<div class="figure" style="text-align: center">
<img src="Estadística_y_Ciencia_files/figure-html/fig-jugadores-1.png" alt="Porcentajes de jugadores de fútbol de 1ª y 2ª en España nacidos cada mes (fuente: www.livefutbol.com)" />
Porcentajes de jugadores de fútbol de 1ª y 2ª en España nacidos cada mes (fuente: www.livefutbol.com)
</div>

.blue[¿Podemos asegurar que los jugadores de fútbol tienden a nacer más en los primeros meses del año y menos en los últimos? ¿O es casualidad?]

---

## Ejemplo 4: ¿En qué mes nacen los jugadores de fútbol?

.blue[¿Podemos asegurar que los jugadores de fútbol tienden a nacer más en los primeros meses del año y menos en los últimos? ¿O es casualidad?]

* Calculamos el p-valor: probabilidad de obtener este resultado si los jugadores de fútbol tuviesen la misma distribución de meses de nacimiento que los niños nacidos en España.

* También en este caso es .red[p<0.000000000000001]

* Por tanto podemos estar muy seguros de que el resultado no es casual, debe haber algo que produzca esta anomalía en los meses de nacimiento de los jugadores de fútbol.

* La estadística confirma la existencia de la anomalía, pero .red[__no nos dice nada de su causa__].

---

## Ejemplo 4: ¿En qué mes nacen los jugadores de fútbol?

.blue[¿Será ésta una anomalía española o es general?]

<div class="figure" style="text-align: center">
<img src="Estadística_y_Ciencia_files/figure-html/fig-jugadores2-1.png" alt="Porcentajes de jugadores de fútbol de las ligas alemana e italiana nacidos cada mes (fuente: www.livefutbol.com)" />
Porcentajes de jugadores de fútbol de las ligas alemana e italiana nacidos cada mes (fuente: www.livefutbol.com)
</div>

---

## Ejemplo 4: ¿En qué mes nacen los jugadores de fútbol?

.blue[¿Ocurre sólo en el fútbol o se da en otras profesiones?]

<div class="figure" style="text-align: center">
<img src="Estadística_y_Ciencia_files/figure-html/fig-actores-1.png" alt="Porcentajes de actores de Hollywood nacidos cada mes (fuente: www.bornglorious.com)" />
Porcentajes de actores de Hollywood nacidos cada mes (fuente: www.bornglorious.com)
</div>

---

### Ejemplo 5: Modelos estadísticos: rectas de regresión

Francis Galton, 1886: _"Regression towards mediocrity in hereditary stature"_:

<div class="figure" style="text-align: center">
<img src="Estadística_y_Ciencia_files/figure-html/fig-galton1-1.png" alt="Estatura de los hijos frente a la estatura de sus padres en el estudio de Galton de 1886" width="80%" />
Estatura de los hijos frente a la estatura de sus padres en el estudio de Galton de 1886
</div>

La asociación entre las estaturas de progenitores y descendientes es _significativa_ (no debida al azar) (.red[p < 0.0000001])

---

### Ejemplo 5: Modelos estadísticos: rectas de regresión

Galton llamó a estas rectas _"rectas de regresión"_ porque para ambos sexos se observaba que las tallas de los descendientes estaban más cerca de la media que las tallas de sus progenitores (esto es, las tallas _"regresaban"_ a la media):

<div class="tabwid"><style>.cl-1eaaf900{}.cl-1ea0d4ca{font-family:'DejaVu Sans';font-size:11pt;font-weight:bold;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1ea0d4de{font-family:'DejaVu Sans';font-size:11pt;font-weight:normal;font-style:normal;text-decoration:none;color:rgba(0, 0, 0, 1.00);background-color:transparent;}.cl-1ea4ef9c{margin:0;text-align:left;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);padding-bottom:5pt;padding-top:5pt;padding-left:5pt;padding-right:5pt;line-height: 1;background-color:transparent;}.cl-1ea4efa6{margin:0;text-align:right;border-bottom: 0 solid rgba(0, 0, 0, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0 solid rgba(0, 0, 0, 1.00);border-right: 0 solid rgba(0, 0, 0, 1.00);padding-bottom:5pt;padding-top:5pt;padding-left:5pt;padding-right:5pt;line-height: 1;background-color:transparent;}.cl-1ea51d46{width:1.947in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51d64{width:0.804in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51d6e{width:0.658in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51d78{width:0.844in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51d82{width:0.658in;background-color:rgba(207, 207, 207, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51d96{width:1.947in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51da0{width:0.804in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51daa{width:0.658in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51db4{width:0.844in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51db5{width:0.658in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0 solid rgba(0, 0, 0, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51dbe{width:1.947in;background-color:transparent;vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51dd2{width:0.804in;background-color:transparent;vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51ddc{width:0.658in;background-color:transparent;vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51de6{width:0.844in;background-color:transparent;vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51df0{width:0.658in;background-color:transparent;vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51df1{width:1.947in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51dfa{width:0.804in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51e0e{width:0.658in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51e18{width:0.844in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}.cl-1ea51e2c{width:0.658in;background-color:rgba(239, 239, 239, 1.00);vertical-align: middle;border-bottom: 0.75pt solid rgba(102, 102, 102, 1.00);border-top: 0.75pt solid rgba(102, 102, 102, 1.00);border-left: 0.75pt solid rgba(102, 102, 102, 1.00);border-right: 0.75pt solid rgba(102, 102, 102, 1.00);margin-bottom:0;margin-top:0;margin-left:0;margin-right:0;}</style><table data-quarto-disable-processing='true' class='cl-1eaaf900'><thead><tr style="overflow-wrap:break-word;"><th class="cl-1ea51d46">Estatura Padre/Madre</th><th class="cl-1ea51d64">Padres</th><th class="cl-1ea51d6e">Hijos</th><th class="cl-1ea51d78">Madres</th><th class="cl-1ea51d82">Hijas</th></tr></thead><tbody><tr style="overflow-wrap:break-word;"><td class="cl-1ea51d96">Baja</td><td class="cl-1ea51da0">167</td><td class="cl-1ea51daa">173</td><td class="cl-1ea51db4">154</td><td class="cl-1ea51db5">161</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1ea51dbe">Estatura media</td><td class="cl-1ea51dd2">176</td><td class="cl-1ea51ddc">176</td><td class="cl-1ea51de6">163</td><td class="cl-1ea51df0">163</td></tr><tr style="overflow-wrap:break-word;"><td class="cl-1ea51df1">Alta</td><td class="cl-1ea51dfa">185</td><td class="cl-1ea51e0e">180</td><td class="cl-1ea51e18">171</td><td class="cl-1ea51e2c">166</td></tr></tbody></table></div>

En la actualidad la recta de regresión es quizás uno de los modelos estadísticos más utilizados en todos los campos de la ciencia para estudiar relaciones entre variables.

---

### Ejemplo 5: Modelos estadísticos: rectas de regresión

Por cierto, en el mismo estudio, Galton quiso ver si hombres altos tendían a emparejarse con mujeres altas y viceversa:

El resultado fue negativo. No existía asociación significativa entre ambas variables (.red[p=0.065]).

---

### El futuro de la estadística

¿Hacia donde se dirige la estadística? ¿Qué podemos esperar de esta ciencia en el futuro?

---

### El futuro de la estadística

* Hoy en día, gracias a los avances en informática, es posible estudiar conjuntos de datos cada vez más grandes y complejos.

* Se desarrollan nuevas técnicas estadísticas basadas en simulación y se mejoran los algoritmos para el ajuste de modelos estadísticos.

* Se crean diversas herramientas de software que facilitan la realización de los análisis estadísticos: SAS, SPSS, BMDP, Statistica, Systat, … Entre todas estas herramientas de software destaca el lenguaje R, que se ha convertido actualmente en el estándar para el análisis de datos.

---

### El futuro de la estadística

.left-column[

]

.right-column[

Mientras los estadísticos han ido incorporando la informática a su quehacer diario, los expertos en computación han desarrollado un conjunto de tecnologías y procedimientos completamente novedosos:

* Perceptrón (1957)

* Redes Neuronales (años 60 y 70)

* Aprendizaje automático (_"Machine Learning"_) (años 80 y 90)

* Redes neuronales profundas (_"Deep Learning"_) (2010)

* Inteligencia Artificial: chatGPT, Gemini, Llama, Claude, Perplexity, ... (Hoy)

]

---

### El futuro de la estadística

* Siglos XVII y XVIII: Estadística (_ciencia del estado_) + Teoría de la Probabilidad =
Estadística Matemática.

* Siglos XX y XXI : Estadística Matemática + Computación = ??

<video width="960" height="340" autoplay loop>
 <source src="http://estadistica-dma.ulpgc.es/imagenes/codigoinformatico.mp4" type="video/mp4">
 Tu navegador no soporta el elemento de video.
</video>

---

### El futuro de la estadística

.blue[¿Qué responde la IA cuando se le pregunta por el futuro de la Estadística?]

* Se desarrollarán nuevas metodologías para el análisis de Big Data en la nube y en tiempo real; también para el estudio de datos de alta dimensionalidad, datos geolocalizados y estructuras de datos no estándar procedentes de todo tipo de sensores.

* Habrá una mayor integración con métodos aprendizaje automático para automatizar tareas, identificar patrones complejos y generar predicciones más precisas.

* La estadística seguirá siendo pieza clave en la investigación científica, en particular en la investigación en salud.

* __Democratización de la estadística:__ se desarrollarán métodos que permitan a un público amplio entender y utilizar los datos, mediante la automatización de los métodos estadísticos y la interpretación de resultados en lenguaje natural.

---

### El futuro de la estadística

.blue[¿Qué responde la IA cuando se le pregunta por el futuro de la Estadística?]

* Se desarrollarán procedimientos que permitan a gobiernos, empresas y organizaciones convertir sus datos en conocimiento de aplicación inmediata (_conocimiento accionable_), que haga posible tomar decisiones informadas y basadas en evidencia.

* Se necesitará __más formación y educación__ en Estadística para progresar en el desarrollo de todos los procedimientos citados e interactuar adecuadamente con los mismos.

Como en última instancia, las decisiones resultantes de un análisis de datos habrán de ser (esperamos) tomadas por personas, éstas deberán tener la formación y conocimientos suficientes para ser capaces de entender y valorar críticamente los análisis realizados por la IA para que esas decisiones sean lo más justas y adecuadas posible.

</div>

---

---