- Instale o R neste link.
- Instale o RStudio neste link (recomendado).
- Acesse este link e crie uma conta free.
val_agregado insu_trab insu_capital | |
38372840 424471 2689076 | |
1805427 19895 57997 | |
23736129 206893 2308272 | |
26981983 304055 1376235 | |
217546032 1809756 13554116 | |
19462751 180366 1790751 | |
28972772 224267 1210229 | |
14313157 54455 421064 | |
159921 2029 7188 |
library(aplore3) | |
data(chdage) | |
head(chdage) | |
# ajuste 1 | |
mod1 <- glm(chd ~ age, family = binomial(), data = chdage) | |
summary(mod1) | |
# |
# Animacao | |
# https://yihui.org/animation/example/least-squares/ | |
# Exemplo 1 --------------------------------------------------------------- | |
x <- c(1.9, 0.8, 1.1, 0.1, -0.1, 4.4, 4.6, 1.6, 5.5, 3.4) | |
y <- c(0.7, -1, -0.2, -1.2, -0.1, 3.4, 0, 0.8, 3.7, 2) |
# PARTE I ----------------------------------------------------------------- | |
# upload do conjunto de dados | |
# Metodo 1: ir ao botao 'Import Dataset' | |
# Metodo 2: via comandos abaixo | |
install.packages("readxl") # instalando pacote 'readxl' | |
library(readxl) # carregando pacote 'readxl' | |
dados_estud = read_excel("C:\caminho\para\arquivo\dados-exemplo-estudantes.xls") | |
View(dados_estud) |
#- EST0116 INFERENCIA II | |
#- Slides 0 | |
# slide 97 ---------------------------------------------------------------- | |
library(MASS) | |
theta <- 3 | |
n <- 20 | |
x <- rgamma(n, shape = theta, rate = 1); x |
#- EST0116 INFERENCIA II | |
#- Slides 0 | |
# slide 37 ---------------------------------------------------------------- | |
library(animation) | |
ani.options(interval = 0.1, nmax = 200) | |
# gerando valores de uma exponencial com media = 1 | |
clt.ani() |