#### Exercício Introducao ao R ####

### Basta mudar o diretório?

# Verifica o diretório de trabalho atual
getwd()
ls()
# Muda o diretório de trabalho
setwd("C:/Users/Talita/Desktop/Disciplina R language")
# Confirma a mudança de diretório 
getwd()
# Verifica os objetos e arquivos do novo diretório. 
ls()
dir()
# Não foi suficiente o comando setwd() porque o ls() indicou que objetos do antigo diretório ainda estão disponíveis



### Um comando perigoso

# apaga-se todos os objetos
rm(list= ls())
# salva o script de modo que os objetos possam ser recuperados depois de apagados
save.image()


### Remoção com critério

# Carregando o arquivo "bichos.Rdata"
load("bichos.Rdata")
# Verificando os objetos do diretório agora com o novo arquivo
ls()
# Removendo do diretório apenas os objetos que começam com "temp"
rm(list=ls(pattern="temp"))
# Comfirmando que só os objetos iniciados com "temp" foram deletados
ls()

### Classes de objetos

# Descobrindo o que os objetos letters e LETTERS contém
letters
LETTERS
# Descobrindo a classe destes vetores
class(letters)
class(LETTERS)
# Transformando em objetos da classe fator
letters <- as.factor(letters)
class(letters)
LETTERS <- as.factor(LETTERS)
class(LETTERS)

### Objetos de Data

hoje <- Sys.Date()
hoje
# Verificando a classe do objeto hoje
class(hoje)
# Diferença de dias entre a data de hoje e o dia em que o Brasil foi tricampeão
copa.70 <- "21/06/70"
copa.70 <- as.Date(copa.70,format="%d/%m/%y")
class(copa.70)
hoje - copa.70
# Data daqui a 43 dias
hoje + 43