# AQUI VAI O SEU CÓDIGO
variavel <- rnorm(n = 1000, mean = 0, sd = 1)
hist(variavel)

#CRIANDO VETORES

#cria um vetor com o nome "inteiro"
inteiro <- 1:5
#mostra o vetor
inteiro
#verifica a classe do vetor criado
class(inteiro)

numerico <- rnorm(n = 5)
numerico
class(numerico)
logico <- c(TRUE, FALSE, TRUE, FALSE, TRUE)
logico
class(logico)
texto <- c('Branco', 'Azul', 'Branco', 'Azul', 'Azul')
texto
class(texto)
fator <- factor(texto)
fator
class(fator)

#CRIANDO DATA.FRAME
tabela <- data.frame(inteiro, numerico, logico, texto, fator, stringsAsFactors = F)
tabela
class(tabela)

#INDEXAÇÃO
numerico
numerico[ 1 ] #primeira observação do vetor numerico
numerico[ 5 ] #quinta observação do vetor numerico
numerico[   ] #todas observações do vetor numerico

texto
texto[ 2 ] #segunda observação do vetor texto

tabela
tabela[1,1]
tabela[ ,2]
tabela[3, ]

tabela[ , 'fator']
tabela[ , 'numerico']
tabela$numerico

#ESTATÍSTICA DESCRITIVA
mean(tabela$numerico)
sd(tabela$numerico)
summary(tabela$numerico)
median(tabela$numerico)
IQR(tabela$numerico)

#GRAFICOS
hist(tabela$numerico, main='hist(tabela$numerico)')
boxplot(tabela$numerico, main='boxplot(tabela$numerico)')
plot(x = tabela$inteiro, y = tabela$numerico, main = 'plot(x = tabela$inteiro, y = tabela$numerico)')