prueba 9 intentar cambiar titulos

episodes/ZIKAB.Rmd

@@ -24,13 +24,15 @@ exercises: 8
 ---
 :::::::::::::::::::::::::::::::::::::: questions 
 
+## Pregunta introductoria 
+
 - ¿Cómo construir un modelo simplificado de zika?
 
 ::::::::::::::::::::::::::::::::::::::::::::::::
 
 ::::::::::::::::::::::::::::::::::::: objectives
 
-Objetivos 
+## Objetivos 
 
 Al final de este taller usted podrá:
 
@@ -100,6 +102,8 @@ Ahora se usarán los parámetros que discutimos en la parte A del taller. Si aú
 
 ::::::::::::::::::::::::::::::::::::: challenge  
 
+## Desafío 1 
+
 Busque los valores de los parámetros del modelo y diligéncielos en el recuadro de abajo. Tenga en cuenta que todos los parámetros usados tienen la misma unidad de tiempo (días).
 
 
@@ -132,6 +136,8 @@ TIME     <-        # Número de años que se va a simular
 
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: instructor
 
+## Solución 1 
+
 ```{r, include = full_version}
 # Parámetros
 ph       <- 0.7       # Probabilidad de transmisión del vector al hospedador dada una picadura por un mosquito infeccioso a un humano susceptible
@@ -211,6 +217,9 @@ ode(y      = # Condiciones iniciales,
 
 ::::::::::::::::::::::::::::::::::::: challenge  
 
+
+## Desafío 2 
+
 En esta sección se empezará por crear la función _(argumento fun)_, para ello es necesario traducir las ecuaciones del modelo a R. Abajo encontrará la función ya construida, por favor reemplace los parámetros faltantes (Cambie *PAR* por el parámetro correspondiente) en las  ecuaciones:
 
 ```{r, eval = FALSE}
@@ -245,6 +254,8 @@ arbovmodel <- function(t, x, params) {
 
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: instructor
 
+## Solución 2 
+
 ```{r, include = full_version}
 arbovmodel <- function(t, x, params) {
   
@@ -283,7 +294,10 @@ En esta sección se crearán los tres argumentos faltantes para usar la función
 
 -   Los ARGUMENTOS de la función **ode** en el paquete **deSolve**.
 
-::::::::::::::::::::::::::::::::::::: challenge  
+::::::::::::::::::::::::::::::::::::: challenge   
+
+## Desafío 3 
+
 ```{r, eval = FALSE}
 # Secuencia temporal (times)
 times  <- seq(1, 365 * TIME , by = 1)
@@ -317,7 +331,8 @@ out <- as.data.frame(ode(y      = ARGUMENTO?,   # COMPLETE Y COMENTE
 
 
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: instructor
-
+## Solución 3 
+
 ```{r, include = full_version}
 # ----------- Resuelva el modelo
 #Tiempo
@@ -349,9 +364,13 @@ out <- as.data.frame(ode(y      = xstart,     # Condiciones iniciales
                          parms  = params))    # Parámetros
 ```
 ::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::
+
+## 11. Resultados 
 
 ::::::::::::::::::::::::::::::::::::: challenge 
-## 11. Resultados
+
+## Desafío 4 
+
 
 Para tener una visualización más significativa de los resultados, convierta las unidades de tiempo *días* en *años* y en *semanas*.
 
@@ -364,6 +383,8 @@ out$weeks <-
 
 :::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::::: instructor
 
+## Solución 4 
+
 ```{r, include = full_version}
 # Cree las opciones de tiempo a mostrar 
 out$years <- out$time / 365
@@ -500,6 +521,8 @@ Contribuciones son bienvenidas vía [pull requests](https://github.com/reconhub/
 
 ::::::::::::::::::::::::::::::::::::: keypoints 
 
+## Puntos clave 
+
 Revise si al final de esta lección aprendió estos conceptos:
 
 -   Modelo SIR para ETV Zika