4.8 Ejercicios

4.8.1 Ej: Suma de valores absolutos

Crea una función que sume los valores absolutos de dos números. Los argumentos deben ser estos números.

Tip: Usa la función abs() para obtener el valor absoluto de la función.

suma_abs_fun <- function(a, b){
  
}
suma_abs_fun(-4, 2) 
## [1] 6

4.8.2 Ej: Likes

Considerando el siguiente vector de likes de cada día de la semana.

likes <- c(16, 7, 9, 20, 2, 17, 11)
names(likes) <-  c("Mon", "Tue", "Wed", "Thu", "Fri", "Sat", "Sun")
likes
## Mon Tue Wed Thu Fri Sat Sun 
##  16   7   9  20   2  17  11

Crea una función en la imprima Hoy fuiste popular si los likes del día fueron mayores a 15 y regrese el número de likes.

Si el número de likes es menor a 15, entonces imprime :( y regresa 0.

Usa la función print().

likes_fun <- function(num) {
  if (num > ) {
    print()
    return()
  } else {
    print()    
    return()
  }
}

Prueba la función para el primer elemento del vector likes.

likes_fun(likes[1])

4.8.3 Ej: Grafica de gasolina

El siguiente vector presenta el precio de la gasolina en diferentes localidades.

gas_cdmx <- c(15.82, 15.77, 15.83, 15.23, 14.95, 15.42, 15.55)
gas_cdmx
## [1] 15.82 15.77 15.83 15.23 14.95 15.42 15.55

Completa la siguiente función tal que considerando el argumento tipo de cambio, imprima una gráfica del vector en dolares y regrese este vector.

grafica_dolar_fun <- function(precio, tipo_cambio){
  precio_en_dolar <- precio/
  print(plot())
  return()
}

Considerando el tipo de cambio de los siguientes meses obtén el vector y la gráfica de cada mes.

  • Julio: 17.3808
  • Agosto: 17.6084
gas_dolar_julio <- grafica_dolar_fun(, 17.3808)
gas_dolar_agosto <- grafica_dolar_fun(, 17.6084)

4.8.4 Ej: Instala y carga

Instala y carga en tu computadora los paquetes en listados antes.

install.packages(readr)
install.packages(readxl)
install.packages(tidyr)
install.packages(dplyr)
install.packages(stringr)
install.packages(ggplot)
install.packages(lubridate)
library(readr)
library(readxl)
library(lubridate)
library(stringr)
library(tidyr)
library(dplyr)
library(ggplot)