library(readxl)
PRACTICA3 <- read_excel("C:/Users/J MANUEL/Documents/Ciencias de los Datos/Datos/PRACTICA3.xlsx")

PRACTICA3

## # A tibble: 15 x 5
##    NOMBRE    EDAD GENERO SUELDO `ESTADO CIVIL`
##    <chr>    <dbl> <chr>   <dbl> <chr>         
##  1 JUAN        40 M        1500 S             
##  2 MARY        26 F         320 C             
##  3 RUBEN       56 M        1020 V             
##  4 PATY        70 F        2345 D             
##  5 JORGE        3 M       15000 V             
##  6 LUIS        13 M        6500 S             
##  7 OLGA        23 F        2356 C             
##  8 VERONICA    15 F        1123 V             
##  9 MIMI        45 F        5423 V             
## 10 KARINA      78 F        7800 D             
## 11 PABLO       25 M       25000 D             
## 12 BETO        46 M       13200 D             
## 13 SALUL       65 M        2400 D             
## 14 OMAR        23 M       12600 D             
## 15 SALMA       59 F        4500 S