19-functions.Rmd

# Funciones


```{r, include = FALSE}
library(tidyverse)
library(datos)
```


## 19.2 ¿Cuándo deberías escribir una función?{-#escribir-funcion}

### 19.2.1 Ejercicios{-#ejercicios-1921}

1. ¿Por qué `TRUE` no es un parámetro para `rescale01()`? ¿Qué pasaría si `x` está contenido en un valor único perdido y `na.rm` fuese `FALSE`?

<div class="solucion">
<h3>Solución</h3>

</div>

2. En la segunda variante de `rescale01()`, los valores infinitos se dejan sin cambio. Reescribe `rescale01()` así `-Inf` is convertido a 0, y `Inf` es convertido a 1.

<div class="solucion">
<h3>Solución</h3>

</div>

3. Practica convertir los siguientes fragmentos de código en funciones. Piensa en lo que hace cada función. ¿Cómo lo llamarías? ¿Cuántos argumentos necesita? ¿Puedes reescribirlo para ser más expresivo o menos duplicado?

```{r, eval = FALSE}
 mean(is.na(x))

 x / sum(x, na.rm = TRUE)

 sd(x, na.rm = TRUE) / mean(x, na.rm = TRUE)
```
<div class="solucion">
<h3>Solución</h3>

</div>

4. Escribe tus propias funciones para computar la variancia y la inclinación de un vector numérico. La varianza se define como
    $$
    \mathrm{Var}(x) = \frac{1}{n - 1} \sum_{i=1}^n (x_i - \bar{x}) ^2 \text{,}
    $$
    donde $\bar{x} = (\sum_i^n x_i) / n$ es la media de la muestra.
    La inclinación se define como
    $$
    \mathrm{Skew}(x) = \frac{\frac{1}{n-2}\left(\sum_{i=1}^n(x_i - \bar x)^3\right)}{\mathrm{Var}(x)^{3/2}} \text{.}
    $$

<div class="solucion">
<h3>Solución</h3>

</div>


5. Escribe `both_na()`, una función que toma dos vectores de la misma longitud y retorna el número de posiciones que tiene `NA` en ambos vectores.

<div class="solucion">
<h3>Solución</h3>

</div>


6. ¿Qué hacen las siguientes funciones? ¿Por qué son tan útiles aún cuando son tan cortas?

 ```{r}
 is_directory <- function(x) file.info(x)$isdir
 is_readable <- function(x) file.access(x, 4) == 0
 ```

<div class="solucion">
<h3>Solución</h3>

</div>


7. Lee el [complete lyrics](https://en.wikipedia.org/wiki/Little_Bunny_Foo_Foo)
 de "Pequeño conejito Foo Foo". Como ves, hay mucha duplicación en la letra de la canción. Extiende el ejemplo inicial de pipes para recrear la canción completa, usar las funciones para reducir la duplicación.

<div class="solucion">
<h3>Solución</h3>

</div>

## 19.3 Las funciones son para los humanos y las computadoras{-#funciones-humanos}

### 19.3.1 Ejercicios{-#ejercicios-1931}

1. Lee el código fuente para cada una de las siguientes tres funciones, interpreta que hacen, y luego propone nombres mejores.

```{r}
 f1 <- function(string, prefix) {
 substr(string, 1, nchar(prefix)) == prefix
 }
 f2 <- function(x) {
 if (length(x) <= 1) return(NULL)
 x[-length(x)]
 }
 f3 <- function(x, y) {
 rep(y, length.out = length(x))
 }
```
<div class="solucion">
<h3>Solución</h3>

</div>


2. Toma una función que hayas escrito recientemente y tómate 5 minutos para pensar un mejor nombre para la función y para sus argumentos.

<div class="solucion">
<h3>Solución</h3>

</div>

3. Compara y contrasta `rnorm()` y `MASS::mvrnorm()`. ¿Cómo podrías hacerlas más consistentes?

<div class="solucion">
<h3>Solución</h3>

</div>

4. Argumenta porqué `norm_r()`,`norm_d()` etc sería una mejor opción que `rnorm()`, `dnorm()`. Argumenta lo contrario.

<div class="solucion">
<h3>Solución</h3>

</div>

## 19.4 Ejecución condicional{-#ejecucion-condicional}

### 19.4.4 Ejercicios{-#ejercicios-1944}

1. ¿Cuál es la diferencia entre `if` and `ifelse()`? Lee cuidadosamente la ayuda y construye tres ejemplos que ilustren las diferencias claves.

<div class="solucion">
<h3>Solución</h3>

</div>

2. Escribe una función de saludo que diga "buenos días", "buenas tardes" o "buenas noches", según la hora del día. (Sugerencia: usa un argumento de tiempo que por defecto es `lubridate::now()`, eso hará que sea más fácil testear tu función).

<div class="solucion">
<h3>Solución</h3>

</div>

3. Implementa una función `fizzbuzz` que tenga un solo número como input. Si el número es divisible por tres, devuelve "fizz". Si es divisible por cinco, devuelve "buzz". Si es divisible por tres y cinco, devuelve "fizzbuzz". De lo contrario, devuelve el número. Asegúrate de escribir primero código que funciones antes de crear la función.

<div class="solucion">
<h3>Solución</h3>

</div>

4. ¿Cómo podrías usar `cut()` para simplificar este conjunto de sentencias if-else anidada?

```{r, eval = FALSE}
 if (temp <= 0) {
 "congelado"
 } else if (temp <= 10) {
 "helado"
 } else if (temp <= 20) {
 "fresco"
 } else if (temp <= 30) {
 "tibio"
 } else {
 "caluroso"
 }
```

¿Cómo cambiarías la sentencia a `cut()` si hubieras usado `<`en lugar de `<=`? ¿Cuál es la otra ventaja principal de `cut()` para este problema? (Sugerencia: ¿qué sucede si tienes muchos valores en `temp`?)

<div class="solucion">
<h3>Solución</h3>

</div>


5. ¿Qué sucede si usaras `switch()` con un valor numérico?


<div class="solucion">
<h3>Solución</h3>

</div>

6. ¿Qué hace la llamada a `switch()`? ¿Qúe sucede si `x` fuera “e”?

```{r, eval = FALSE}
 switch(x,
 a = ,
 b = "ab",
 c = ,
 d = "cd"
 )
```

Experimenta, luego lea cuidadosamente la documentación.

<div class="solucion">
<h3>Solución</h3>

</div>

## 19.5 Argumentos de funciones{-#argumentos-funciones}

### 19.5.5 Ejercicios{-#ejercicios-1955}

1. ¿Qué realiza `commas(letters, collapse = "-")`? ¿Por qué?

<div class="solucion">
<h3>Solución</h3>

</div>

2. Sería bueno si se pudiera suplantar múltiples caracteres al argumento `pad`,
 ej., `rule("Title", pad = "-+")`. ¿Por qué esto actualmente no funciona? ¿Cómo podrías solucionarlo?

<div class="solucion">
<h3>Solución</h3>

</div>

3. ¿Qué realiza el argumento `trim` a la función `mean()`? ¿Cuándo podrías utilizarla?

<div class="solucion">
<h3>Solución</h3>

</div>

4. El valor de defecto para el argumento `method` a `cor()` es
 `c("pearson", "kendall", "spearman")`. ¿Qué significa esto? ¿Qué valor se utiliza por defecto?

<div class="solucion">
<h3>Solución</h3>

</div>