Determinar pendiente
# Cargar la librería previamente instalada
library (readr)
## Warning: package 'readr' was built under R version 3.6.2
#ruta <- "C:/Users/Usuario/Documents/Mis clases ITD/Semestre Enero Junio 2020/Analisis Inteligente de Datos/datos"
# setwd(ruta) # En modo terminal aqui en MarkDown no permita ...
promedios <- read.csv("https://raw.githubusercontent.com/rpizarrog/machine_learning_ITD-ReadMe/master/promedios.csv")
head(promedios) # los primeros seis registros
## No..Control Semestre Cr..Apr. Carga Promedio
## 1 10040001 8 154 23 83.24
## 2 10040002 8 193 32 88.19
## 3 10040003 1 NA 27 0.00
## 4 10040004 2 22 28 82.40
## 5 10040005 5 77 28 81.59
## 6 10040006 1 NA 27 0.00
tail(promedios) # los ultimos seis registros
## No..Control Semestre Cr..Apr. Carga Promedio
## 467 10040467 3 55 27 87.92
## 468 10040468 7 175 34 90.03
## 469 10040469 11 202 29 82.43
## 470 10040470 2 22 23 83.20
## 471 10040471 3 50 27 86.00
## 472 10040472 4 73 28 82.44