##Exercicio 1 ##

#mudar diretório 

setwd(dir)

#carregar dados

load(file, envir = parent.frame())

#Um comando Perigoso

a=10
b=20
ls() 
rm (list=ls())
ls()


#Para recuperar basta ter os códigos salvos

#Remoção com critério 

bichos.data=file.choose()
ls()

rm(list=ls(pattern="temp"))
ls()

#Classes de Objetos 


letters #letras minusculas

LETTERS #letras maiusculas 
help(letters)# para entender melhor

#Classes

class(letters)

class(LETTERS)

#Transformando

factor(LETTERS)

factor(letters)

#Objetos de Data

hoje = Sys.Date()

class(hoje)

class(hoje)

copa.tc= "21/07/70"

class(copa.70)

copa.70= as.Date(copa.tc,format= "%d/%m/%y")

class(copa.70)

hoje
copa.tc = as.Date(copa.70,format="%d/%m/%y")
copa.tc
hoje-copa.tc # 14856 days

#Daqui 43 dias
x=hoje-copa.tc
x+43 #14900 days