Skip to content

Instantly share code, notes, and snippets.

Avatar
🎯
Focusing

Eliardo Costa eliardocosta

🎯
Focusing
View GitHub Profile
@eliardocosta
eliardocosta / Links_R.md
Last active Jul 13, 2022
Links e Scripts R para a disciplina EST0232 Fundamentos de Estatística Aplicada (2022.1)
View Links_R.md
@eliardocosta
eliardocosta / gujarati.txt
Last active Feb 8, 2022
Scripts R e conjuntos de dados da disciplina MAE0006 MODELOS DE REGRESSAO.
View gujarati.txt
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
View script_reglogis.R
library(aplore3)
data(chdage)
head(chdage)
# ajuste 1
mod1 <- glm(chd ~ age, family = binomial(), data = chdage)
summary(mod1)
#
View script_reglin.R
# 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)
View script_descritiva.R
# 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)
@eliardocosta
eliardocosta / LinksR.md
Last active Aug 17, 2021
Livros e links relacionados à linguagem R.
View LinksR.md

Primeiros passos

Usando o R no seu computador

  1. Instale o R neste link.
  2. Instale o RStudio neste link (recomendado).

Usando o R online

  1. Acesse este link e crie uma conta free.

Livros

@eliardocosta
eliardocosta / README.md
Last active Aug 2, 2021
Script R com comandos para o cálculo do alfa de Cronbach e quantidades relacionadas.
View README.md
View script_slides0_ics.R
#- EST0116 INFERENCIA II
#- Slides 0
# slide 97 ----------------------------------------------------------------
library(MASS)
theta <- 3
n <- 20
x <- rgamma(n, shape = theta, rate = 1); x
View script_slides0_teolim.R
#- 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()
View script_slides0_consit.R
#- EST0116 INFERENCIA II
#- Slides 0
# slide 23 ----------------------------------------------------------------
estu_sim1 <- function(eps, theta, K = 100) {
ns <- seq(5, 10000, 1000)
prob <- numeric()
for (n in ns) {
cont <- numeric()