script1.R

getwd()

## [1] "C:/practicas de R1/practicaR1"

library(readxl)
CEP_sep_oct_2017 <- read_excel("CEP_sep-oct_2017.xlsx", 
                               sheet = "DATOS")
View(CEP_sep_oct_2017)