





























































Estude fácil! Tem muito documento disponível na Docsity
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Prepare-se para as provas
Estude fácil! Tem muito documento disponível na Docsity
Prepare-se para as provas com trabalhos de outros alunos como você, aqui na Docsity
Os melhores documentos à venda: Trabalhos de alunos formados
Prepare-se com as videoaulas e exercícios resolvidos criados a partir da grade da sua Universidade
Responda perguntas de provas passadas e avalie sua preparação.
Ganhe pontos para baixar
Ganhe pontos ajudando outros esrudantes ou compre um plano Premium
Comunidade
Peça ajuda à comunidade e tire suas dúvidas relacionadas ao estudo
Descubra as melhores universidades em seu país de acordo com os usuários da Docsity
Guias grátis
Baixe gratuitamente nossos guias de estudo, métodos para diminuir a ansiedade, dicas de TCC preparadas pelos professores da Docsity
Uma introdução à linguagem de programação r, com foco em exercícios práticos e exemplos de código. Aborda conceitos básicos como a criação de vetores, a manipulação de dados, a construção de gráficos e a aplicação de funções estatísticas. Ideal para estudantes que desejam aprender a usar o r para análise de dados e visualização.
Tipologia: Resumos
1 / 69
Esta página não é visível na pré-visualização
Não perca as partes importantes!
a
Natal, janeiro de 2014
1.1 – Download e instalação 1.2 – Histórico, licença, citação e demonstração 1.3 – O ambiente R 1.3.1 – A área de trabalho e seus objetos 1.3.2 – O editor de código básico do R 1.3.3 – O sistema help 1.3.4 – Conjunto de dados pré-instalados 1.3.5 – Pacotes do R 1.3.6 – As funções attach(), detach() e with() 1.4 – Comandos básicos 1.4.1 – Operações e expressões 1.4.2 – Atribuições
2.1 – Entrada de dados via teclado 2.2 – Leitura de dados de um arquivo texto 2.3 – Gravação de dados em um arquivo texto 2.4 – Importação de arquivos do Excel 2.5 – Exportação para arquivos do Excel 2.6 – Importação de dados do SPSS, SAS,...
3.1 – Vetores 3.2 – Funções e argumentos 3.3 – Data frames 3.3.1 – Indexação de data frames 3.3.2 – Seleção condicional de observações 3.4 – Matrizes 3.4.1 – Indexação de matrizes 3.5 – Listas 3.5.1 – Indexação de listas 3.6 – Fatores 3.7 – Dados agrupados 3.8 – Posto e ordenação 3.9 – As funções apply() , lapply() , sapply(), tapply() e by()
4.1 – A região gráfica 4.2 – A função plot.default() 4.3 – Algumas funções gráficas auxiliares 4.4 – A função par() 4.5 – Alguns gráficos da metodologia estatística
5.1 – A estrutura if 5.2 – A estrutura for 5.3 – A estrutura while 5.4 – A estrutura repeat
# APRESENTAÇÃO
# UNIDADE I: CONCEITOS BÁSICOS
license() # licença citation() # citação contributors() # contribuidores do R demo() # demonstração demo(graphics, package="graphics") demo(persp, package="graphics")
require(datasets); require(graphics) opar <- par(ask = dev.interactive(orNone = TRUE)) x <- seq(-10, 10, length = 50) y <- x rotsinc <- function(x, y) { sinc <- function(x) { y <- sin(x)/x y[is.na(y)] <- 1 y } 10 * sinc(sqrt(x^2 + y^2)) } sinc.exp<-expression(z==sinc(sqrt(x^2 + y^2))) z <- outer(x, y, rotsinc) par(bg = "white") persp(x, y, z, theta = 30, phi = 30, expand = 0.5, col = "lightblue")
x
y
z
ls()
x = 1 y = 1:10; z = - v = w = 3 ls()
x y (t=1.5)
rm(v) ls()
rm(list=ls()[2:4]) ls()
rm(list = ls()) ls()
(nome = "maria") x = 0; y = 0 altura = NA # valor não informado ou não se aplica vazio = NULL # o objeto existe, mas está vazio (logico1=FALSE) (logico2=T) ls()
class(logico1) is.logical(logico1) class(nome) is.logical(nome) is.character(nome) class(vazio) is.null(vazio) class(x) is.numeric(x) is.character(x) class(cars) is.matrix(cars) is.data.frame(cars) class(3 + 2i) is.complex(3 + 2i)
help.search("weighted mean") # o mesmo que: ??"weighted mean" # para versões atuais ??"weigted mean" # mesmo incorreto o texto é localizado help.search("histogram")
RSiteSearch("pie 3d")
apropos("^ca") # objetos que começam com "ca" apropos("^.$") # objetos com um caracter apropos("^..?$") # objetos com dois caracteres apropos("^.{2,4}$") # objetos com 2, 3 ou 4 caracteres apropos("^.{30,}$") # objetos com 30 ou mais caracteres apropos("^.{,3}$") # objetos com até 3 caracteres
data() cars; ls() data(cars) # carrega o objeto cars para a área de trabalho ls()
class(cars) class(HairEyeColor)
names(cars) # visto que se trata de data frame , há denominação names(HairEyeColor) # visto que se trata de tabela, não há denominação
data(package = .packages(all.available = TRUE))
search()
library(stats4) # ou acessar ( mouse ): Pacotes; Carregar pacote... search()
utils:::menuInstallPkgs() # ou acessar: Pacotes; Instalar pacote...
download.packages(c("RODBC","plotrix"),"C:/Temp")
utils:::menuInstallLocal() # ou acessar ( mouse ): Pacotes; Instalar ...
library(RODBC) # ou acessar ( mouse ): Pacotes; Carregar pacote... search()
help(package="RODBC")
# EXERCÍCIO
class(cars); names(cars) speed # Erro: objeto "speed" não encontrado ls(); search() attach(cars) # só deve ser usado com objetos do tipo data.frame search() speed detach(cars) search() speed # Erro: objeto "speed" não encontrado with(cars, mean(speed))
52-1,5/3 # Erro: erro de sintaxe em " 52-1," 5*2-1.5/ 3%%2 # resto da divisão de 3 por 2 3i * 2i # operação com números complexos
exp(-1) sin(pi/2) asin(1) abs(-3) log(10) log10(10) sqrt(16)
#1. choose #2. mean #3. cov #4. sd #5. var #6. cor #7. data.frame #8. dnorm #9. stem #10. plot #11. summary #12. quantile #13. median #14. factorial #15. weighted.mean
VancouverHainan
Prince of WalesTimor
KyushuTaiwan
New BritainSpitsbergen
Axel HeibergMelville
SouthamptonTierra del Fuego
DevonBanks
CelonTasmania
MoluccasSakhalin
HispaniolaHokkaido
Novaya ZemlyaIreland
MindanaoIceland
LuzonCuba
NewfoundlandNew Zealand (N)
JavaNew Zealand (S)
CelebesEllesmere
VictoriaBritain
HonshuSumatra
BaffinMadagascar
BorneoNew Guinea
GreenlandAustralia
EuropeAntarctica
South AmericaNorth America
AfricaAsia
1.0 1.5 2.0 2.5 3.0 3.5 4.
islands data: log10(area) (log10(sq. miles))
# UNIDADE II: IMPORTAÇÃO E EXPORTAÇÃO DE DADOS
(vet1 = c(10, 12, 13, 9, 11, 8, 7)) class(vet1)
vet2 = scan() # digitar dados (tamanho vet1) e
dados1 = data.frame(x=vet1, y=vet2+1) dados
edit(dados1) dados1 # os dados não se alteram
dados1 = edit(dados1) dados
fix(dados1)
dados2 = data.frame() fix(dados2) dados
dados3 = read.table(file="texto.txt") dados
dados3 = read.table(file="texto.txt", header=T) dados
alunos=read.table(file="DadosAlunos.csv", header=T, sep=";") alunos
dados4=read.table(file="texto.txt", header=T, sep="\t") dados
# UNIDADE III: ELEMENTOS ESSENCIAIS DA LINGUAGEM R
(nomes = c("pedro", "maria", "lucas")) class(nomes) (x = c(10.3, 2, 0.2, -2, -7.9)) class(x) (misto = c(x, nomes)) class(misto) (z = c(0.1+0.9i,0.2-0.7i)) class(z) (logico = c(T,F,F,T)) # ou: logico = c(TRUE,FALSE,FALSE,TRUE)
x >= 2 nomes != "maria"
seq(1,10,2) # cria uma sequência de 1 a 10 com intervalo igual a 2 seq(0,6,.2) seq(1,9,3) seq(9,1,3) # Erro em seq.default(9,1,3) : sinal errado no argumento 'by' rep(0,10) # repete 0 dez vezes rep(c(1,2,3), 2) rep(c(1,2,3), c(2,3,4)) rep(c(-1,0,1), c(1,2,3)) rep(1:2, rep(4,2))
letters[1:5] month.abb month.name
?format.POSIXct (meses=format(ISOdate(2000, 1:12, 1), "%b")) (MESES=format(ISOdate(2000, 1:12, 1), "%B")) (dias.semana=format(ISOdate(2000, 1, 2:8), "%a")) (DIAS.SEMANA=format(ISOdate(2000, 1, 2:8), "%A"))
peso = c(60,70,80) altura = c(1.60, 1.70, 1.80) peso/altura^ peso+ peso+c(2,3) # executa a expressão, mas gera a seguinte advertência
peso+c(2,3,2)
mf() # ou: mf(25) # ou ainda: mf(x=25) mf(16)
dnor=function(x, media=0, dp=1) { nor=(1/(sqrt(2pi)dp))exp(-(x-media)^2/(2dp^2)) return(nor) }
dnor(2,1,.3) dnorm(2,1,.3) # teste válido!
dnor(2,mean=0,sd=1)
dnor(2,media=0,dp=1) class(dnor)
plot(seq(-4,4,.1), dnor(seq(-4,4,.1)), type="l")
# EXERCÍCIO RESOLVIDO
dp = function(x){ s=sqrt (sum((x - mean(x))^2)/(length(x) - 1)) return(s) }
dp(c(5,3,6,8)) sd(c(5,3,6,8))
# EXERCÍCIOS
(dados1 = data.frame(x=1:7, y=11:17))
(dados1 = data.frame(X=1:7, Y=11:17, row.names=LETTERS[1:7])) # melhor!
(dados2 = data.frame(dados1, Z=21:27)) # ou (dados2 = cbind(dados1, Z=21:27))
(dados2 = rbind(dados1, c(10,5))) (dados2 = rbind(dados1, dados1))
rownames(dados1) colnames(dados1) dimnames(dados1)
# EXERCÍCIO
dados1[2,2] dados1[,2] dados1[1,] dados1[1:3,] dados1[c(1,3,5),] dados1[c(1,3,5),2] dados1[c(1,3,3,5),2] dados1[rep(1:7,2),] # ou: rbind(dados1, dados1) dados1[-c(1,3,5),2] dados1[c(T,T,T,F,F,F,F),2] dados1[c(T,F),2] dados1$X dados1$Y dados1$X[2]
dados dados1$X[2]=19 # ou: dados1[2,1]= dados
names(alunos) alunos[,2] alunos$Idade alunos$"Idade" alunos$Ida alunos$"I" alunos$Pes # há outras colunas iniciando por "Pes"
dados dados1[dados1$Y==7,] # ou: dados1[dados1[,2]==7,] dados1[dados1$Y==7|dados1$Y==6,] dados1[dados1$Y==7|dados1$Y==6,1] dados1$Y[dados1$Y>6] dados1$Y> dados1$X<=
cbind(1:5,6:10,11:15) # concatenando por coluna cbind(X1=1:5,X2=6:10,X3=11:15) # denominando as colunas rbind(1:5,6:10,11:15) # concatenando por linha rbind(A=1:5,B=6:10,C=11:15) # denominando as linhas
dim(A) t(A)
A[A[,2]>=7,c(2,4)] A[A[,2]>=7,rep(2,4)] A[4,]=rep(20,5) A
(dad=data.frame(A))
dad$X2 # "$" pode ser usado em data frame ... A$X2 # ...mas não em matriz class(dad); class(A)
(lista1 = list(1:5, 1:8)) class(lista1) names(lista1)
nomes = c("pedro", "maria", "lucas"); y = 1: (lista2 = list(Nomes=nomes, Y=y)) names(lista2); attach(lista2); Nomes
(lista3=list(lista2, Matriz=A)) names(lista3); attach(lista3) # Erro!
lista1[[1]] # ou: lista1[1] lista1[[1]][3] # é diferente de: lista1[1][3] lista2[[2]] lista2[[2]][4] lista3[[2]][2,2] lista3[[1]][[1]][3]
lista2$Y # ou: lista2[[2]] lista2$Y[4] # ou: lista2[[2]][4] lista3$Matriz # é diferente de: lista3$A lista3[[1]]$Nomes[3] # ou: lista3[[1]][[1]][3]
attach(alunos) class(Sexo) is.factor(Sexo) summary(Sexo) class(Idade) summary(Idade) is.factor(Idade)
alunos$Faixa.etaria[Idade<20]= alunos$Faixa.etaria[Idade>=20&Idade<30]= alunos$Faixa.etaria[Idade>=30]= class(alunos$Faixa.etaria); is.factor(alunos$Faixa.etaria) summary(alunos$Faixa.etaria)
alunos$Faixa.etaria=factor(alunos$Faixa.etaria,levels=1:3) # ou: alunos$Faixa.etaria=as.factor(alunos$Faixa.etaria) class(alunos$Faixa.etaria); is.factor(alunos$Faixa.etaria) summary(alunos$Faixa.etaria)