library(readxl)
Datos_Rotacion <- read_excel("Downloads/Datos_Rotacion.xlsx")
attach(Datos_Rotacion)