##Introducci?n a R 
##Modulo 4
##Video 2

#Cargar paquete readr
library("readr") #install.packages("readr")

##leer archivo separado por "tabs"
(txt  <- read_tsv("datos_originales/datos_txt.txt"))

##leer archivo con . como separador decimal y con columnas separadas por ,
(csv <- read_csv("datos_originales/datos_csv.txt"))

##leer archivo con , como separador decimal y con columnas separadas po ;
(csv2 <- read_csv("datos_originales/datos_csv2.txt"))
(csv2 <- read_csv2("datos_originales/datos_csv2.txt"))

##Un ejemplo de opci?n que puede ser ?til
(csv3 <- read_csv2("datos_originales/datos_csv2.txt", skip = 1, col_names = c("V1", "V2", "V3")))

##Leer archivos Excel (.xls o .xlsx)
library(readxl) #install.packages("readxl")

xlsx <- read_excel("datos_originales/datasets.xlsx")
xls <- read_excel("datos_originales/datasets.xls")

#Archivos Excel muchas veces tienen mas de una pesta?a. Por defecto se importa la primera
excel_sheets("datos_originales/datasets.xlsx")

#Importar otras pesta?as desde el mismo archivo Excel
mtcars_xlsx <- read_excel("datos_originales/datasets.xlsx", sheet = "mtcars")
quakes <- read_excel("datos_originales/datasets.xlsx", 4)