Talleres

01-unidad1.Rmd

@@ -155,6 +155,39 @@ El resultado indica que, la probabilidad de que el intervalo $(500.5, 506.9)$ (e
 Obtener los intervalos con las confianzas al 90\% y 95\% asociados al ejemplo \@ref(exm:ejemplo1IC). Comente las diferencias e interprete.
 :::
 
+
+Dado lo expuesto en el ejercicio anterior, la figura \@ref(fig:simulacionIC) muestra la relación que existe entre la confianza y el rango del intervalo, en la cual, es posible observar que a mayor confianza es mayor el rango del intervalo.
+
+```{r simulacionIC, echo=FALSE, fig.width=5, fig.height=4, fig.cap="Simulación de intervalos de confianza", fig.align='center', echo = F, warning=FALSE}
+library(ggplot2)
+set.seed(2024)
+valores = round(runif(n = 200, min = 19, max = 29))
+limites = function(confianza){
+  alfa = 1- confianza
+  li = mean(valores) - qnorm(1-alfa/2)*6/sqrt(length(valores))
+  ls = mean(valores) + qnorm(1-alfa/2)*6/sqrt(length(valores))
+  return(c(li,ls))
+}
+confianzas = 80:99/100
+ICs = apply(as.matrix(confianzas), MARGIN = 1, FUN = function(x){
+  return(limites(x))
+})
+ICs = as.data.frame(t(ICs))
+colnames(ICs) = c("Li","Ls")
+ICs$N = 1:(dim(ICs)[1])
+ICs$Confianza = confianzas
+
+ggplot(data = ICs) +
+  geom_segment(aes(x = Li, y = N, xend = Ls, yend = N), color = "darkred", linetype = 1) +
+  geom_point(aes(x = Li, y = N)) +
+  geom_point(aes(x = Ls, y = N)) +
+  labs(y = "Confianza", x = "Intervalos",
+       title = "IC para la media y varianza conocida (36),\n proveniente de una distribución normal") +
+  scale_y_continuous(breaks = ICs$N, labels = ICs$Confianza)
+```
+
+
+
 ### Intervalo de confianza para la media de una distribución normal y varianza poblacional desconocida
 
 ```{r echo=FALSE}

docs/est2+inferencia.tex

@@ -145,7 +145,7 @@
 
 \title{Estadística II \& Inferencia Estadística}
 \author{\href{https://dfranzani.github.io/website/principal/home.html}{Daniel Franzani}}
-\date{Actualizado al 07-08-2024}
+\date{Actualizado al 01-09-2024}
 
 \usepackage{amsthm}
 \newtheorem{theorem}{Theorem}[chapter]
@@ -321,6 +321,17 @@ \subsection{Intervalo de confianza para la media de una distribución normal y v
 Obtener los intervalos con las confianzas al 90\% y 95\% asociados al ejemplo \ref{exm:ejemplo1IC}. Comente las diferencias e interprete.
 \end{exercise}
 
+Dado lo expuesto en el ejercicio anterior, la figura \ref{fig:simulacionIC} muestra la relación que existe entre la confianza y el rango del intervalo, en la cual, es posible observar que a mayor confianza es mayor el rango del intervalo.
+
+\begin{figure}
+
+{\centering \includegraphics{est2+inferencia_files/figure-latex/simulacionIC-1} 
+
+}
+
+\caption{Simulación de intervalos de confianza}\label{fig:simulacionIC}
+\end{figure}
+
 \subsection{Intervalo de confianza para la media de una distribución normal y varianza poblacional desconocida}\label{intervalo-de-confianza-para-la-media-de-una-distribuciuxf3n-normal-y-varianza-poblacional-desconocida}
 
 \begin{table}[H]

docs/index.html

@@ -278,7 +278,7 @@ <h1>
 <div id="header">
 <h1 class="title">Estadística II &amp; Inferencia Estadística</h1>
 <p class="author"><em><a href="https://dfranzani.github.io/website/principal/home.html">Daniel Franzani</a></em></p>
-<p class="date"><em>Actualizado al 07-08-2024</em></p>
+<p class="date"><em>Actualizado al 01-09-2024</em></p>
 </div>
 <div id="presentación" class="section level1 unnumbered hasAnchor">
 <h1>Presentación<a href="index.html#presentación" class="anchor-section" aria-label="Anchor link to header"></a></h1>

docs/intervalos-de-confianza.html

@@ -421,6 +421,13 @@ <h3><span class="header-section-number">1.2.1</span> Intervalo de confianza para
 <div class="exercise">
 <p><span id="exr:unlabeled-div-1" class="exercise"><strong>Ejercicio 1.1  </strong></span>Obtener los intervalos con las confianzas al 90% y 95% asociados al ejemplo <a href="intervalos-de-confianza.html#exm:ejemplo1IC">1.1</a>. Comente las diferencias e interprete.</p>
 </div>
+<p>Dado lo expuesto en el ejercicio anterior, la figura <a href="intervalos-de-confianza.html#fig:simulacionIC">1.2</a> muestra la relación que existe entre la confianza y el rango del intervalo, en la cual, es posible observar que a mayor confianza es mayor el rango del intervalo.</p>
+<div class="figure" style="text-align: center"><span style="display:block;" id="fig:simulacionIC"></span>
+<img src="est2+inferencia_files/figure-html/simulacionIC-1.png" alt="Simulación de intervalos de confianza" width="480" />
+<p class="caption">
+Figura 1.2: Simulación de intervalos de confianza
+</p>
+</div>
 </div>
 <div id="intervalo-de-confianza-para-la-media-de-una-distribución-normal-y-varianza-poblacional-desconocida" class="section level3 hasAnchor" number="1.2.2">
 <h3><span class="header-section-number">1.2.2</span> Intervalo de confianza para la media de una distribución normal y varianza poblacional desconocida<a href="intervalos-de-confianza.html#intervalo-de-confianza-para-la-media-de-una-distribución-normal-y-varianza-poblacional-desconocida" class="anchor-section" aria-label="Anchor link to header"></a></h3>

docs/talleres-de-práctica.html

@@ -279,7 +279,6 @@ <h1>
 <h1>Talleres de práctica<a href="talleres-de-práctica.html#talleres-de-práctica" class="anchor-section" aria-label="Anchor link to header"></a></h1>
 <p>A continuación, se muestra una lista de los talleres disponibles:</p>
 <ul>
-<li><a href="material/talleres/Taller%20introductorio/Taller_Introductorio_a_R.ipynb">Taller introductorio</a></li>
 <li><a href="material/talleres/Talleres%20de%20practica/taller1.pdf">Taller de práctica 1</a></li>
 <li><a href="material/talleres/Talleres%20de%20practica/taller2.pdf">Taller de práctica 2</a></li>
 <li><a href="material/talleres/Talleres%20de%20practica/taller3.pdf">Taller de práctica 3</a></li>

index.Rmd

@@ -58,8 +58,6 @@ if (knitr::is_html_output()){
                 link(talleres_pruebas, "Taller de práctica Evaluación "),
                 link(taller_examen, "Taller de práctica Examen "))
    
-   cat(" - [Taller introductorio](material/talleres/Taller introductorio/Taller_Introductorio_a_R.ipynb) \n")
-   
    if(length(talleres) != 0){
       for (i in 1:length(talleres)) {
          cat(paste(" -", talleres[i]), "\n")