favs <- read.table("favorites.txt", sep=",", header=TRUE)

# perguntando o arquivo a ser aberto
favs <- read.table(file.choose(), sep=",", header=TRUE) 

# de outra forma (abreviada)
favs <- read.csv("favorites.txt")

#mostrando primeiras linhas do quadro
head(favs)

#lidando com tipos de dados
class(favs)
class(favs$flavor)
class(favs$number)

favs$flavor


head(mtcars) # cabeçalho dos dados 'mtcars
unique(mtcars$carb) # lista de valores distintos
table(mtcars$carb) #contagem de valores simples

cut(airquality$Temp, 9)
table(cut(airquality$Temp, 9))

teste <- table(cut(airquality$Temp, 9))

sals = c(41.000 , 40.300 , 38.000 , 500.000 , 41.500 , 37.000 , 39.600 , 42.000 , 39.900 , 39.500)
median(sals) # média
mean(sals) #mediana

summary(sals)