Publications by Adolfo Manoel
Exercício 06 Lista 4
Simulação Computacional ## Tamanho amostral n <- 1e4 ## Taxas da distribuicao exponencial alpha1 <- 0.6 ; alpha2 <- 0.9 ; alpha3 <- 0.3 ## geracao dos dados # funcao que gera os dados gera_dados <- function(n,alpha){ rexp(n, rate = alpha)} # matriz de dados dados_3exps <- sapply(c(alpha1,alpha2,alpha3), gera_dados, n=n) colnames(dad...
546 sym 1 img
Análise Qualitativa
Instalação de Bibliotecas ## ## ── R CMD build ───────────────────────────────────────────────────────────────── ## checking for file 'C:\Users\adolf\AppData\Local\Temp\RtmpOKTswA\remotes85e4665571c6\q...
34 sym
Custo Mínimo Esperado de Transporte
Função Distância para o Custo Mínimo Esperado De acordo com o artigo 1, versão beta, a seguinte fórmula é válida para Distância Esperada: \[E|X_k-Y_k|=k\bigg(\frac{1}{\lambda_1}-\frac{1}{\lambda_2}\bigg)+2k\bigg(\frac{I_x(k,k+1)}{\lambda_2}-\frac{I_x(k+1,k)}{\lambda_1}\bigg),\] em que \(I_x(a,b)\) é a função beta incompleta regulariza...
1819 sym R (1164 sym/3 pcs) 1 img
Custo de Transporte
Função Distância para o Custo Mínimo Esperado De acordo com o artigo 1, versão beta, a seguinte fórmula é válida para Distância Esperada: \[E|X_k-Y_k|=k\bigg(\frac{1}{\lambda_1}-\frac{1}{\lambda_2}\bigg)+2k\bigg(\frac{I_x(k,k+1)}{\lambda_2}-\frac{I_x(k+1,k)}{\lambda_1}\bigg),\] em que \(I_x(a,b)\) é a função beta incompleta regulariza...
1815 sym R (1164 sym/3 pcs) 1 img
Programacao_Artigo
1 Introdução A programação foi realizada na linguagem R (https://www.r-project.org/) , utilizando o IDE RStudio (link). IDE é o ambiente de desenvolvimento integrado (Em inglês, Integrated Development Environment). Neste Trabalho, implementamos o Custo Mínimo Esperado (teórico) e o Custo Mínimo Amostral (simulado). 2 Valores Teóricos A...
11498 sym R (9965 sym/16 pcs) 8 img
Simulação Artigo 1 de Kranakis (2014)
LEMA 03 : A seguinte identidade é válida: \[ E\big[\;|X_i-Y_k|\;]=\frac{k-i+i2^{-k+1}}{\lambda}+\frac{2^{-k}}{\lambda}\sum\limits_{j=0}^{i-1}\binom{k+j}{k-1}2^{-j}(i-1-j) \] Código para Diferença Esperada entre eventos de dois processos de Poisson iid Ei_k<-function(i,k,lambda){ parc<-numeric(i) for (t in 1:i){ j=t-1 parc[t]...
1084 sym R (3978 sym/24 pcs)
Artigo Kranakis_Simulação
1 Introdução Neste trabalho, implementamos os resultados, obtidos na dissertação de mestrado, para o Custo Mínimo Esperado (Teórico) entre eventos de dois processos de Poisson independentes e simulamos, a partir de amostras aleatórias de tempos de chegada, obtendo o Custo Mínimo Estimado. A programação foi realizada na linguagem R (http...
6231 sym R (6681 sym/12 pcs) 5 img 2 tbl
Inferência Computacional
Lista 1 Exercício 01 Item c) est.p<-function(n,p){ X<-rgeom(n,p) # Geracao da amostra est1<-1/(1+mean(X)) est2<-2*mean(X) / ( ((n-1)/n)*var(X) + mean(X)*(1+mean(X)) ) est3<-(-1+sqrt( 1+4*((n-1)/n)*var(X) ) ) / ( (2*(n-1)/n)*var(X) ) return(t(list(Estimador_1=est1,Estimador_2=est2, E...
628 sym R (17959 sym/72 pcs) 9 img 1 tbl
Extração para Etapas
Instalando e carregando bibliotecas lbs<-c('rvest','stringr','openxlsx','DT','kableExtra','plyr','data.table') req <- substitute(require(x, character.only = TRUE)) sapply(lbs, function(x) eval(req) || {install.packages(x); eval(req)}) ## rvest stringr openxlsx DT kableExtra plyr data.table ## TRUE TRUE ...
308 sym R (5445 sym/15 pcs)
Extração
Introdução A programação foi desenvolvida na linguagem e ambiente de Computação Estatística R (Orientada a objeto, semelhante ao Python). Pode ser baixada gratuitamente em https://www.r-project.org/; IDE RStudio (IDE RStudio). Visa ajudar na conferência dos militares e dias trabalhados após confecção no excel. Encontra-se em construç...
2460 sym R (8382 sym/18 pcs) 5 img