Actividad en clase | Ejercicios básicos de R

1.Crea las siguientes variables: * Un número decimal

a1 <- 9.14

    * Un número entero

b1 <- 14L

    * Un valor lógico

c1 <- TRUE

    * Un texto

d1 <- "texto"

2. Emprime cada variable y verifica el tipo de cada variable usando typeof()

cat("variable decimal: ", a1)

## variable decimal:  9.14

cat("\nvariable entera: ", b1)

## 
## variable entera:  14

cat("\nvariable lógica: ", c1)

## 
## variable lógica:  TRUE

cat("\nvariable string: ", d1)

## 
## variable string:  texto

3. Crea un vector con los números del 1 al 10, e imprime el resultado.

v <- 1:10

4. Selecciona:
   • El tercer elemento

v[3]

## [1] 3

    * Los elementos del 5 al 8

v[5:8]

## [1] 5 6 7 8

    * Todos los elementos excepto el primero

v[-1]

## [1]  2  3  4  5  6  7  8  9 10

5. Crea un vector de texto con 5 palabras y:
   • Ordénalo

v2 <- c("foxtrot", "charlie", "oscar", "alfa", "whiskey")

    * Obtén los valores únicos

v3 <- sort(v2)
for(i in 1:length(v3)){
  cat(v3[i], "\n")
}

## alfa 
## charlie 
## foxtrot 
## oscar 
## whiskey

6. Crea un vector numérico y selecciona:
    * Valores mayores a 5

v4 <- sample(1:10, 10, replace = TRUE)
for(i in 1:length(v4)){
  cat(v4[i], "| ")
}

## 9 | 6 | 7 | 10 | 4 | 9 | 2 | 1 | 8 | 3 |

    * Valores menores o iguales a 3

v5 <- v4[v4 > 5]
for(i in 1:length(v5)){
  cat(v5[i], "| ")
}

## 9 | 6 | 7 | 10 | 9 | 8 |

7. Crea una lista que contenga:
    * Un vector numérico

lista <- list(
  vector_numerico = sample(1:10, 10, replace = FALSE)
)

    * Un vector de texto

lista$vector_texto <- c("alfa", "bravo", "charlie", "delta", "echo", "foxtrot", 
                        "golfo", "hotel", "india", "juliet")

    * Un valor lógico

lista$vector_par <- lista$vector_numerico %% 2  == 0
lista$vector_impar <- lista$vector_numerico %% 2 != 0

8. Asigna nombres a los elementos de la lista

names(lista) <- c("vector numerico", "vector texto", "par", "impar")
head(lista)

## $`vector numerico`
##  [1]  3  5  8  6  1  4  7  9 10  2
## 
## $`vector texto`
##  [1] "alfa"    "bravo"   "charlie" "delta"   "echo"    "foxtrot" "golfo"  
##  [8] "hotel"   "india"   "juliet" 
## 
## $par
##  [1] FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE
## 
## $impar
##  [1]  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE

9. Accede a:
    * El primer elemento

lista$`vector numerico`[1]

## [1] 3

    * El elemento por nombre

lista["par"]

## $par
##  [1] FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE

    * Una sublista

lista$`vector numerico`

##  [1]  3  5  8  6  1  4  7  9 10  2

10. Crea una lista dentro de otra lista y accede a un elemento interno usando [[]]

lista2 <- list(lista)
head(lista2)

## [[1]]
## [[1]]$`vector numerico`
##  [1]  3  5  8  6  1  4  7  9 10  2
## 
## [[1]]$`vector texto`
##  [1] "alfa"    "bravo"   "charlie" "delta"   "echo"    "foxtrot" "golfo"  
##  [8] "hotel"   "india"   "juliet" 
## 
## [[1]]$par
##  [1] FALSE FALSE  TRUE  TRUE FALSE  TRUE FALSE FALSE  TRUE  TRUE
## 
## [[1]]$impar
##  [1]  TRUE  TRUE FALSE FALSE  TRUE FALSE  TRUE  TRUE FALSE FALSE