#Exercício 1 - Introdução ao R
#Gustavo Agudelo. No. USP: 8893871


#1.1 Basta Mudar o Diretório?

#1. Qual o comando você usou para mudar o diretório de trabalho?
#Resposta: Eu usei o comando getwd() para saber qual era o diretório anterior, e depois usei o comando setwd() para mudar e corrijir para o novo diretório..
getwd()
setwd("E:/Science/USP/Mestrado Fisiologia Geral_IB-USP/Disciplinas/Uso da Linguagem R para Análise de Dados em Ecologia_2014-1/Exercícios R/Exercícios 1 - Introdução ao R")
getwd()
dir()
ls()
getwd()

#2.Este comando bastou para restituir o workspace? Se não, que outro comando é necessário?
#Resposta: Não bastou, não. Para restituir o workspace foi necessário usar o comando load() e carregar o arquivo .RData, que deve estar no diretório de trabalho.
load("Exercício1_GA.RData")

#1.2 Um Comando Perigoso

#1. Há um comando simples com a função rm que apaga todos os objetos de sua área de trabalho. Qual é?
#Resposta: O comando com a função rm que apaga todos os objetos da área de trabalho é:
rm(list=ls())
ls()

#2.Suponha que você tenha digitado este comando. De que maneira poderia evitar a perda definitiva de todos os objetos apagados?
#Resposta: É necessário salvar constantemente o workspace com o comando save.image()
#Mas também é necessário usar a janela do script para digitar os comandos e desde alí enviar para o R Console. Se a gente constantemente está salvando o script, não tem problema se os resultados no R Console são apagados. só basta con enviar todo o script de novo.

#1.3 Classes de Objetos

##A distribuição básica do R vem com os objetos letters e LETTERS.

#1. O que cada um contém?
letters
LETTERS
#letters: As letras minúsculas do alfabeto
#LETTERS As letras MAIÚSCULAS do alfabeto

#2. Descubra a classe de cada um?
class(letters)
class(LETTERS)
#Os dois objetos são caracteres

#3. Como você os transformaria em objetos da classe fator?
letters <- as.factor(letters)
LETTERS <- as.factor(LETTERS)
class(letters)
class(LETTERS)
letters
LETTERS

#1.4 Bem-vindo ao notaR
carambola <- c("abacaxi", "beterraba")
salada <- c("beringela", "batata")

#1.5 Remoção Com Critério
load("bichos.rdata")
ls()
rm(list=ls(pattern="temp"))
ls()
save(anfibios, aves, mamiferos, file="bichos01.rdata")

#1.6 Objetos de Data
Sys.Date()
hoje <- Sys.Date()
class(hoje)
hoje
copa.70 <- "1970-06-21"
copa.70
class(copa.70)
copa.70 <- as.Date(copa.70,fotmat="1970-06-21")
class(copa.70)
hoje - copa.70
dif <- hoje - copa.70
hoje + 43
outrodia <- hoje + 43