Asig03 Conceptos Básicos de Prograación

Estadística Aplicada LMV9:00AM

5 Ejemplos en R

---

Ejemplo 1: Filter

library(tidyverse)

## ── Attaching packages ──────────────────────────────────────────────────────────────── tidyverse 1.3.0 ──

## ✓ ggplot2 3.2.1     ✓ purrr   0.3.3
## ✓ tibble  2.1.3     ✓ dplyr   0.8.4
## ✓ tidyr   1.0.2     ✓ stringr 1.4.0
## ✓ readr   1.3.1     ✓ forcats 0.4.0

## ── Conflicts ─────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

library(datos)

#Utilizar unicamente los automoviles con 8 cilindros.
ggplot(data = filter(millas, cilindros == 8)) +
  geom_point(mapping = aes(x = motor, y = autopista))

---

Ejemplo 2: Count

library(tidyverse)
library(datos)
library(stringr)

#Contar los automoviles con transmisones manuales de 6 velocidades.
m6_count <- sum(str_count(millas$transmision,"m6"))
m6_count

## [1] 19

#19 vehículos.

---

Ejemplo 3: For, If y Números

#Se necesita imprimir los numeros impares entre 1 y 10, pero no los pares.
for (i in 1:10) {
  if (!i %% 2){
    next
  }
    print(i)
}

## [1] 1
## [1] 3
## [1] 5
## [1] 7
## [1] 9

#La palabra reservada next hace que el loop se repita, ignorando la siguiente instrucción (print(i))

---

Ejemplo 4: ‘>’, Media y Filter

library(datos)

#Encontrar la media del consumo de combustible en autopista (MPG) de los vehículos 2005 hacia adelante.
data_2005 <- filter(millas, anio >= 2005)

mean(data_2005$autopista, na.rm = TRUE)

## [1] 23.45299

---

Ejemplo 5: Recursividad

#Encontrar el Factorial de un número.
n <- 5
recur_factorial <- function(n) {
  if(n <= 1) {
    return(1)
  } else {
    return(n * recur_factorial(n-1))
    }
}