Skip to content

Instantly share code, notes, and snippets.

View eliardocosta's full-sized avatar
🎯
Focusing

Eliardo Costa eliardocosta

🎯
Focusing
9 followers · 1 following
View GitHub Profile
@eliardocosta
eliardocosta / Links_R.md
Last active December 5, 2023 18:06
Links e Scripts R para a disciplina EST0323 Estatística Aplicada à Engenharia I
@eliardocosta
eliardocosta / Links_R.md
Last active October 27, 2023 11:11
Links e Scripts R para a disciplina EST0232 Fundamentos de Estatística Aplicada
@eliardocosta
eliardocosta / media_movel.R
Last active June 19, 2022 22:29
Animação conceito de média móvel. Veja o link https://twitter.com/EliardoGCosta/status/1385725754877616130?s=20
# Adaptacao da funcao 'mwar.ani' do pacote 'animation' do R para
# ilustrar o conceito de media movel para k observacoes consecutivas
mm.ani = function(x, k = 7, mat = matrix(1:2, 2),
widths = rep(1, ncol(mat)),
heights = rep(1, nrow(mat)), lty.rect = 2, ...) {
nmax = ani.options('nmax')
n = length(x)
if (k > n)
stop('A largura da janela k deve ser menor que o tamanho de x!')
@eliardocosta
eliardocosta / gujarati.txt
Last active February 8, 2022 18:50
Scripts R e conjuntos de dados da disciplina MAE0006 MODELOS DE REGRESSAO.
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
@eliardocosta
eliardocosta / script_reglin.R
Last active September 10, 2021 17:15
# 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)
@eliardocosta
eliardocosta / script_reglogis.R
Created September 10, 2021 17:13
library(aplore3)
data(chdage)
head(chdage)
# ajuste 1
mod1 <- glm(chd ~ age, family = binomial(), data = chdage)
summary(mod1)
#
@eliardocosta
eliardocosta / script_descritiva.R
Last active August 27, 2021 17:15
# 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 August 17, 2021 21:41
Livros e links relacionados à linguagem R.

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 / rNx.R
Last active August 17, 2021 19:52
See https://twitter.com/fermatslibrary/status/1388491536640487428?s=20
rNx <- function(k = 1E3, x = 1) {
out <- numeric()
for (i in 1:k) {
nx <- 1
u <- runif(1)
while(u <= x) {
u <- u + runif(1)
nx <- nx + 1
}
out <- append(out, nx)
@eliardocosta
eliardocosta / README.md
Last active August 2, 2021 13:39
Script R com comandos para o cálculo do alfa de Cronbach e quantidades relacionadas.