diff --git a/R-datascience/diapos/index.html b/R-datascience/diapos/index.html
index bf4f2d8..3f23762 100644
--- a/R-datascience/diapos/index.html
+++ b/R-datascience/diapos/index.html
@@ -1348,7 +1348,7 @@ <h2>Planificación</h2>
 <td style="text-align: center;">x sep</td>
 <td style="text-align: center;">Primeras bases de datos</td>
 <td style="text-align: center;"><a href="#/tu-turno-3-1">💻</a> <a href="#/tu-turno-3-2">💻</a> <a href="#/tu-turno-3-3">💻</a></td>
-<td style="text-align: center;"><a href="#/caso-practico-3">🐣</a></td>
+<td style="text-align: center;"><a href="#/caso-practico-3-1">🐣</a> <a href="#/caso-practico-3-2">🐣</a></td>
 <td style="text-align: center;"></td>
 <td style="text-align: center;"></td>
 <td style="text-align: center;"></td>
@@ -2565,7 +2565,7 @@ <h2>Variables de fecha</h2>
 <div class="cell">
 <div class="sourceCode cell-code" id="cb120"><pre class="sourceCode numberSource r number-lines code-with-copy"><code class="sourceCode r"><span id="cb120-1"><a href="#cb120-1"></a><span class="fu">now</span>()</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output cell-output-stdout">
-<pre><code>[1] &quot;2024-05-21 13:30:24 CEST&quot;</code></pre>
+<pre><code>[1] &quot;2024-05-21 13:46:09 CEST&quot;</code></pre>
 </div>
 </div>
 </div>
@@ -4031,8 +4031,11 @@ <h2>💻 Tu turno (tb/df)</h2>
 </div>
 </div>
 </section>
-<section id="caso-practico-3" class="slide level2">
-<h2>🐣 Caso práctico</h2>
+<section id="caso-practico-3-1" class="slide level2">
+<h2>🐣 Caso práctico I: textos</h2>
+</section>
+<section id="caso-practico-3-2" class="slide level2">
+<h2>🐣 Caso práctico II: tibble</h2>
 <p>Del paquete <code>Biostatistics</code> usaremos el conunto de datos <code>pinniped</code></p>
 <div class="cell">
 <div class="sourceCode cell-code" id="cb340"><pre class="sourceCode numberSource r number-lines code-with-copy"><code class="sourceCode r"><span id="cb340-1"><a href="#cb340-1"></a>Biostatistics<span class="sc">::</span>pinniped</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
@@ -4079,10 +4082,6 @@ <h2>🐣 Caso práctico</h2>
 <pre><code>[1] 6</code></pre>
 </div>
 </div>
-</div>
-</section>
-<section id="caso-práctico-3a-2" class="slide level2">
-<h2>🐣 Caso práctico</h2>
 <ol start="3" type="1">
 <li>Incorpora una <span class="hl-yellow"><strong>variable extra llamada phoca</strong></span> que sea de tipo lógico y que nos diga si una especie es de la categoría <code>Phoca</code> o no.</li>
 </ol>
@@ -4092,6 +4091,7 @@ <h2>🐣 Caso práctico</h2>
 <div class="sourceCode cell-code" id="cb349"><pre class="sourceCode numberSource r number-lines code-with-copy"><code class="sourceCode r"><span id="cb349-1"><a href="#cb349-1"></a>pinniped_tb<span class="sc">$</span>phoca <span class="ot">&lt;-</span> pinniped_tb<span class="sc">$</span>Species <span class="sc">==</span> <span class="st">&quot;Phoca&quot;</span></span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 </details>
 </div>
+</div>
 <div class="fragment">
 <ol start="4" type="1">
 <li>¿A qué sexo le <span class="hl-yellow"><strong>pesa más el cerebro</strong></span>: a las hembras o a los machos? ¿A quienes les <span class="hl-yellow"><strong>pesa más el cuerpo</strong></span>: a los monógamos o a los polígamos?</li>
@@ -4118,10 +4118,6 @@ <h2>🐣 Caso práctico</h2>
 <pre><code>[1] FALSE</code></pre>
 </div>
 </div>
-</div>
-</section>
-<section id="caso-práctico-3a-3" class="slide level2">
-<h2>🐣 Caso práctico</h2>
 <ol start="5" type="1">
 <li>Incopora una nueva variable que represente la <span class="hl-yellow"><strong>diferencia entre el peso del cerebro entre machos y hembras</strong></span> (machos - hembras) para cada especie.</li>
 </ol>
@@ -4149,6 +4145,7 @@ <h2>🐣 Caso práctico</h2>
 # ℹ 2 more variables: phoca &lt;lgl&gt;, dif_m_f &lt;dbl&gt;</code></pre>
 </div>
 </div>
+</div>
 </section></section>
 <section>
 <section id="clase-4" class="title-slide slide level1 center">
@@ -4383,12 +4380,12 @@ <h2>Evitando bucles</h2>
 <span id="cb377-5"><a href="#cb377-5"></a>               <span class="at">times =</span> <span class="dv">500</span>)</span></code><button title="Copy to Clipboard" class="code-copy-button"><i class="bi"></i></button></pre></div>
 <div class="cell-output cell-output-stdout">
 <pre><code>Unit: microseconds
-                                    expr      min        lq        mean
-                                y &lt;- x^2    1.681    1.8655    2.001948
- for (i in 1:100) {     y[i] &lt;- x[i]^2 } 1235.863 1254.3745 1346.174894
-   median       uq       max neval
-    1.968    2.050     6.519   500
- 1263.128 1281.045 13473.543   500</code></pre>
+                                    expr      min       lq        mean   median
+                                y &lt;- x^2    1.722    1.927    2.219658    2.009
+ for (i in 1:100) {     y[i] &lt;- x[i]^2 } 1237.216 1248.983 1307.289346 1255.523
+       uq      max neval
+    2.091   61.377   500
+ 1265.055 3090.498   500</code></pre>
 </div>
 </div>
 </section>
diff --git a/R-datascience/diapos/index.qmd b/R-datascience/diapos/index.qmd
index dc600d2..ff5e319 100644
--- a/R-datascience/diapos/index.qmd
+++ b/R-datascience/diapos/index.qmd
@@ -127,7 +127,7 @@ Se podrán modificar las fechas por saturación con otras asignaturas siempre y
 |:------:|:--------:|:--------:|:------:|:------:|:------:|:------:|:------:|:------:|:------:|
 | [1](#clase-1) | S1 | x sep | Primeros pasos en R | [💻](#tu-turno-1) |  |  | 
 | [2](#clase-2) | S1 | x sep | Tipos básicos de datos y vectores | [💻](#tu-turno-2-1) [💻](#tu-turno-2-2) |  [🐣](#caso-practico-2) |  |
-| [3](#clase-3) | S2 | x sep | Primeras bases de datos | [💻](#tu-turno-3-1) [💻](#tu-turno-3-2) [💻](#tu-turno-3-3) |  [🐣](#caso-practico-3) |  |
+| [3](#clase-3) | S2 | x sep | Primeras bases de datos | [💻](#tu-turno-3-1) [💻](#tu-turno-3-2) [💻](#tu-turno-3-3) |  [🐣](#caso-practico-3-1) [🐣](#caso-practico-3-2) |  |
 | [4](#clase-4) | S2 | x sep | Estructuras de control | [💻](#tu-turno-4-1) [💻](#tu-turno-4-2) |  [🐣](#caso-practico-4) |  |
 | [5](#clase-5) | S3 | x sep | Elaborar apuntes y simulacro de entrega | [💻](#tu-turno-5-1) [💻](#tu-turno-5-2) |  [🐣](#caso-practico-5) |  |
 | [6](#clase-6) | S3 | x sep | Entrega I | | | 🎯 15% |
@@ -2688,8 +2688,11 @@ names(airquality_tb) <- c("ozono", "rad_solar", "viento", "temp", "mes", "dia")
 
 ---
 
+## 🐣 Caso práctico I: textos {#caso-practico-3-1}
 
-## 🐣 Caso práctico {#caso-practico-3}
+---
+
+## 🐣 Caso práctico II: tibble {#caso-practico-3-2}
 
 Del paquete `Biostatistics` usaremos el conunto de datos `pinniped`
 
@@ -2725,11 +2728,6 @@ ncol(pinniped_tb)
 ```
 
 
----
-
-## 🐣 Caso práctico {#caso-práctico-3a-2}
-
-
 3. Incorpora una [**variable extra llamada phoca**]{.hl-yellow} que sea de tipo lógico y que nos diga si una especie es de la categoría `Phoca` o no.
 
 ```{r}
@@ -2754,10 +2752,6 @@ mean(c(pinniped_tb$Male_mass_Kg[pinniped_tb$Mate_type == "mono"],
          pinniped_tb$Female_mass_Kg[pinniped_tb$Mate_type == "poly"]))
 ```
 
----
-
-## 🐣 Caso práctico {#caso-práctico-3a-3}
-
 
 5. Incopora una nueva variable que represente la [**diferencia entre el peso del cerebro entre machos y hembras**]{.hl-yellow} (machos - hembras) para cada especie.