url <-'https://farmaciayestadistica.com/public/files/bloques/bloques_boquilla2_v1.0.txt'
datos <- read.table(file=url, header=T)
View(datos)