Publications by Professor Dr. Leoni, R. C. - AMAN - Resende - RJ.
Coracao
dat<- data.frame(t=seq(0, 2*pi, by=0.1) ) xhrt <- function(t) 16*sin(t)^3 yhrt <- function(t) 13*cos(t)-5*cos(2*t)-2*cos(3*t)-cos(4*t) dat$y=yhrt(dat$t) dat$x=xhrt(dat$t) with(dat, plot(x,y, type="l")) LS0tDQp0aXRsZTogIkZlbGl6IGRpYSBkb3MgTmFtb3JhZG9zISAgICBQcm9mIERyIExlb25pLCBSLkMuIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3IgZmlnLmhl...
467 sym R (206 sym/1 pcs) 1 img
TCC Robson GC R e X-bar
Função xR1 com especificações para média e desvio-padrão Função xR2 sem especificações para média e desvio-padrão Funções # m = número de amostras observadas. # n = número de observações de cada amostra. # y = vetor com as observações, ordenadas por amostra, da variável observada. # mi = especificação para a ...
8899 sym R (6556 sym/8 pcs) 2 img
Gráfico Likert
rm(list=ls(all=TRUE)) library(ggplot2) # for visualization library(likert) library(readxl) library(dplyr) library(plyr) dados <- read_excel("dados.xlsx", col_types = c("numeric", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text", "text")) dados <- dados[,c(3:...
11231 sym R (7673 sym/2 pcs) 1 img
cálculo do aniversário
aniversario <- function(n) { return(p <- 1 - choose(365, 365 - n) * factorial(n) / 365 ^ n) } resp23 = aniversario(23) resp23 [1] 0.5072972 resp50 = aniversario(50) resp50 [1] 0.9703736 resp10 = aniversario(10) resp10 [1] 0.1169482 LS0tDQp0aXRsZTogImPDoWxjdWxvIGRvIGFuaXZlcnPDoXJpbyINCm91dHB1dDogaHRtbF9ub3RlYm9vaw0KLS0tDQoNCmBgYHtyfQ0KY...
426 sym R (236 sym/7 pcs)
EDA_Ciência de dados
# Como fazer uma análise exploratória # completa no R | Caso real # FASES DOS PROJETOS DE CIÊNCIA DE DADOS # -> CAPTURA DOS DADOS # -> ANÁLISE EXPLORATÓRIA # -> LIMPAR OS DADOS # -> CRIAR O MODELO/ MACHINE LEARNING / TESTES ESTATÍSTICOS # -> COMUNICAÇÃO / VISUALIZAÇÃO DE DADOS # 2 PRINCIPAIS MOTIVOS - ANÁLISE EXPLORATÓRIA ...
39 sym R (10892 sym/30 pcs) 3 img
Exemplo de Regressão de dados em painel (livro análise de dados - Fávero)
Regressão com Dados em Painel library(readxl) DesempenhoPainelCurto <- read_excel("DesempenhoPainelCurto.xls", col_types = c("text", "numeric", "text", "text", "numeric", "numeric", "numeric")) View(DesempenhoPainelCurto) require(plm) Carregando pacotes exigidos: plm data=pdata.frame(DesempenhoPainelCurto, index=c("id","temp...
6547 sym R (10518 sym/42 pcs) 1 img
Exemplo de Regressão de dados em painel - 2021
Regressão com Dados em Painel O modelo de regressão com dados em painel possui uma característica especial: se constitui de uma dimensão temporal e outra espacial. Isto porque a mesma unidade de corte transversal (família, países, etc.) é acompanhada ao longo do tempo. Por exemplo, a produção industrial mensal dos Estados brasileiros em ...
34678 sym R (8599 sym/37 pcs) 1 img
R Fuzzy Example
library(sets) sets_options("universe", seq(1, 100, 0.5)) variables <- set( temperature = fuzzy_partition(varnames = c(cold = 30, good = 70, hot = 90), sd = 5.0), humidity = fuzzy_partition(varnames = c(dry = 30, good = 60, wet = 80), sd = 3.0), precipitation = fuzzy_partiti...
2649 sym R (2523 sym/12 pcs) 3 img
descriptr
[https://www.r-bloggers.com/2019/02/descriptive-summary-statistics-with-descriptr/] [https://descriptr.rsquaredacademy.com/index.html] # Install release version from CRAN #install.packages("descriptr") # Install development version from GitHub # install.packages("devtools") devtools::install_github("rsquaredacademy/descriptr") Skipping instal...
2304 sym R (37225 sym/43 pcs) 10 img
Regressão Logística
Variáveis - Dicionário om Organização militar da coleta area Área de instrução (numerei como casa da centena sendo o número da OM e dezena e unidade o número da área na OM) altitude altimetria metros em relação ao nível do mar prescar presença de carrapatos na área de instrução totcar total de carrapatos coletados na área de in...
3716 sym R (27238 sym/112 pcs) 9 img 14 tbl