Publications by Adolfo Manoel
Exercícios Aula 2
Enunciado 1 Escolhe-se um número \(x\), ao acaso, no intervalo \((0,1)\). Em seguida, escolhe-se um segundo número , ao acaso, no intervalo \((0,x)\). Seja \((X,Y)\) o resultado do experimento (ponto escolhido). Determine a densidade e esperança condicional de \(X\) dado \(Y=y\). Solução 1 Função de Densidade Encontramos a função de de...
5115 sym R (3461 sym/14 pcs)
Exemplo 2
Enunciado Escolhe-se um número \(x\), ao acaso, no intervalo \((0,1)\). Em seguida, escolhe-se um segundo número , ao acaso, no intervalo \((0,x)\). Seja \((X,Y)\) o resultado do experimento (ponto escolhido). Determine a densidade e esperança condicional de \(X\) dado \(Y=y\). Solução Teórica Função de Densidade Encontramos a função ...
3525 sym R (1618 sym/7 pcs) 1 img
Estimação
Estimação de Máximo Verossimilhança Objetivo Obter estimativas de máximo verossimilhança dos parâmetros da distribuição Birnbaum-Saunders. Geração de Amostra da Birnbaum-Saunders Geramos uma amostra de tamanho \(n\) da normal padrão; Substituímos na fórmula 1) abaixo, gerando uma amostra de tamanho n da distribuição Birnbaum-Sa...
1080 sym R (2436 sym/5 pcs)
Extração Etapas - SMO
Instalando e carregando bibliotecas ### Instalando e Carregando as bibliotecas lbs<-c('tidyverse','rvest','stringr','openxlsx','DT','kableExtra') req <- substitute(require(x, character.only = TRUE)) sapply(lbs, function(x) eval(req) || {install.packages(x); eval(req)}) ## tidyverse rvest stringr openxlsx DT kableExtra #...
347 sym R (5846 sym/11 pcs) 1 img
Implementacao Prova 2
## Instalando e Carregando os pacotes (bibliotecas) lbs<-c('dplyr','ggplot2','ggpubr','DT','kableExtra','fitdistrplus') req <- substitute(require(x, character.only = TRUE)) sapply(lbs, function(x) eval(req) || {install.packages(x,dependencies = TRUE); eval(req)}) ## dplyr ggplot2 ggpubr DT kableExtra fitdistrplu...
91 sym R (4469 sym/11 pcs) 5 img 1 tbl
Lista 2 Inferência
Questão 01 (1o Modo) theta <- seq(0.01,0.99,0.02) var.est <- rep(0,length(theta)) n <- 10 licr <- ((1-2*theta)^2)*theta*(1-theta)/n na <- 50000 for (i in 1:length(theta)) { vec <- apply(matrix(rbinom(na*n,1,theta[i]),na,n),1,mean) estim <- n*vec*(1-vec)/(n-1) var.est[i] <- var(estim) } plot(theta,licr,type="l",ylim=c(0,0.007)) lines(t...
21927 sym R (18094 sym/43 pcs) 15 img
Lista 2 Inferência
Questão 01 theta <- seq(0.01,0.99,0.02) var.est <- rep(0,length(theta)) n <- 10 licr <- ((1-2*theta)^2)*theta*(1-theta)/n na <- 50000 for (i in 1:length(theta)) { vec <- apply(matrix(rbinom(na*n,1,theta[i]),na,n),1,mean) estim <- n*vec*(1-vec)/(n-1) var.est[i] <- var(estim) } plot(theta,licr,type="l",ylim=c(0,0.007)) lines(theta,var.e...
101 sym R (3164 sym/10 pcs) 7 img
Implementacao Prova 1
Modelo \(Gama(2,\theta)\) (Erlang de ordem 2) lbs<-c("ggplot2","ggpubr") req <- substitute(require(x, character.only = TRUE)) sapply(lbs, function(x) eval(req) || {install.packages(x,dependencies = TRUE); eval(req)}) ## ggplot2 ggpubr ## TRUE TRUE ## funcao de densidade de probabilidade densidade <- function(n) { layers<-list(g...
178 sym R (3896 sym/16 pcs) 2 img
Questão 10 c)
Enunciado: Dada uma amostra aleatória \(X_1,X_2,\cdots,X_n\), da distribuição cuja f.d.p é \(f_X(x)=\theta\;x^{\theta-1}, \quad x\in(0,1)\quad \mbox{e} \quad \theta>0\), obtenha o Erro Quadrático Médio (EQM) do estimador \[\hat{\theta}= \frac{n}{\sum\limits_{i=1}^{n}-log(X_i)}.\] Solução: Seja \(X_1,X_2,\cdots,X_n\) uma amostra aleatóri...
1439 sym R (643 sym/4 pcs)
Sinais de Comunicação
Problema 3 (Gráficos com ggplot2) Banda Passante #install.packages("ggplot2") library(ggplot2) xt<-function(t){ if (t==0){ return(1) }else { return((sin(100*t)/(100*t))*cos(100*pi*t) ) } } t1<-seq(-25,25,le=100) ;...
86 sym R (1392 sym/6 pcs) 4 img