disciplinas:ce089-2014-02

Não foi possível enviar o arquivo. Será algum problema com as permissões?

Você está aqui: start » disciplinas » ce089-2014-02

Tabela de conteúdos

Detalhes da oferta da disciplina
Scripts, notas e documentos
Links úteis
Avaliações
Discussão

CE-083: Estatística Computacional II

"The purpose of computing is insight, not numbers." (Richard Hamming)

Detalhes da oferta da disciplina

Professor: Walmes Marques Zeviani, (LEG: Laboratório de Estatística e Geoinformação)
Curso: Estatística.
Período: 2014/2.
Local: LABEST LAB C.
Horário: Segunda 20h45-22h00 e Quarta 19:00-20:30h.
Atendimento: Segunda, 19:00-20:30h.

Scripts, notas e documentos

##-----------------------------------------------------------------------------
 
require(bbmle)
 
##-----------------------------------------------------------------------------
 
y <- rnorm(100, mean=0, sd=1)
crt <- 1.5
r <- y<crt
y[!r] <- crt
r <- as.integer(r)
plot(ecdf(y))
table(r)
 
ll <- function(theta, y, r){
    ys <- split(y, r)
    ll1 <- dnorm(ys[["1"]],
                 mean=theta[1],
                 sd=exp(theta[2]),
                 log=TRUE)
    ll2 <- pnorm(ys[["0"]],
                 mean=theta[1],
                 sd=exp(theta[2]),
                 lower.tail=FALSE,
                 log=TRUE)
    ll12 <- sum(ll1)+sum(ll2)
    ## Tem que retornar o negativo da soma. A mle2() minimiza.
    return(-ll12)
}
 
##-----------------------------------------------------------------------------
## Estimação com a bbmle.
 
parnames(ll) <- c("mu", "lsigma")
m0 <- mle2(minuslogl=ll, start=list(mu=0, lsigma=log(1)),
           vecpar=TRUE, data=list(y=y, r=r), method="BFGS")
 
coef(m0)
summary(m0)
ci <- confint(m0, method="quad")
ci
 
htheta <- coef(m0)
logL <- c(logLik(m0))
 
##-----------------------------------------------------------------------------
 
llv <- Vectorize(
    FUN=function(th1, th2, y, r){
        -ll(c(th1, th2), y=y, r=r)
    },
    vectorize.args=c("th1", "th2"))
 
th1 <- seq(-0.4, 0.4, l=30)
th2 <- seq(-0.1, 0.4, l=30)
 
lla <- outer(th1, th2, llv, y=y, r=r)
 
contour(th1, th2, lla,
        xlab=expression(mu),
        ylab=expression(log(sigma)))
abline(v=htheta[1], h=htheta[2], lty=2)
contour(th1, th2, lla, add=TRUE,
        levels=(logL-0.5*qchisq(0.95, df=length(htheta))),
        col=2)
abline(v=ci[1,], h=ci[2,], lty=3, col=2)
 
plot(profile(m0))
 
 
##--------------------------------------------
## Implementação conforme sugestão do Wikipedia.
 
require(rootSolve)
 
n <- rbinom(1, size=200, p=0.8)
y <- c(rpois(n, lambda=exp(2)), rep(0, 200-n))
length(y)
 
barx <- mean(y)
p <- sum(y==0)/length(y)
 
f <- function(lambda, L){
    L$barx*(1-exp(-lambda))-lambda*(1-L$p)
}
 
L <- list(barx=barx, p=p)
gradient(f, x=2, L=L)
 
curve(f(x, L=L), 0, 15); abline(h=0)
 
## Newton-Raphson.
maxiter <- 50; i <- 1          ## Número máximo de iterações e contador.
tol <- 1e-5; error <- 100*tol  ## Tolerância e erro inicial.
theta <- matrix(NA, nrow=1, ncol=1)
theta[1,] <- barx
while(i <= maxiter & error>tol){
    theta <- rbind(theta, rep(NA,1))
    G <- f(theta[i,], L)
    H <- gradient(f=f, x=theta[i,], L=L)
    theta[i+1,] <- theta[i,]-solve(H)%*%G
    error <- sum(abs((theta[i+1,]-theta[i,])/theta[i+1,]))
    i <- i+1
    ## print(c(theta[i,], G))
    print(cbind(H, G, theta[i,]))
}
 
lam <- theta[i,]        ## Estimativa do lambda.
pii <- 1-barx/theta[i,] ## Estimativa do pi.
 
##-----------------------------------------------------------------------------
## Vendo os contornos da verossimilhança.
 
llmax <- ll(th=c(log(pii/(1-pii)), log(lam)), y=y)
 
th1 <- seq(-7, 5, l=50)
th2 <- seq(-1, 4, l=50)
lla <- outer(th1, th2, llv, y=y)
 
contour(th1, th2, lla,
        ## levels=seq(from=llmax-30, to=llmax, by=10),
        nlevels=20,
        xlab="theta1: logit(p)",
        ylab="theta2: log(lambda)")
abline(v=log(pii/(1-pii)), h=log(lam), col=2)

Links úteis

Instruções de como enviar os trabalhos/atividades: datafilehost.

Avaliações

Trabalho 1: Geração de números aleatórios;

Discussão

구글 백링크, 2024/11/14 14:12

구글 상위노출, 백링크 프로그램, 구글 백링크 구글 상위노출 필요하신분들만 보세요

장기렌트 장단점, 2024/11/13 11:38

장기렌트 장단점 장기렌트 장단점

장기렌트카 가격표, 2024/11/13 10:43

장기렌트카 가격표 장기렌트카 가격표

제주 유흥주점, 2024/11/13 06:27

제주도 가라오케, 제주도 룸싸롱, 제주도 풀싸롱, 제주 유흥주점 제주도 가라오케, 제주도 풀싸롱, 제주도 룸싸롱 추천

제주도 가라오케 추천, 2024/11/12 11:35

제주도 가라오케, 제주도 룸싸롱, 제주도 풀싸롱, 제주도 가라오케 추천, 제주도 유흥주점 후회없는 제주도 가라오케 추천

백링크 효과, 2024/11/12 04:51

백링크, 구글 상위노출, 백링크 프로그램, 백링크 작업, 구글 상위노출 프로그램, 구글 상단노출, 백링크 효과, 구글 백링크 구글 상위노출 | 백링크 프로그램

강남가라오케, 2024/11/11 09:13

강남 가라오케, 강남가라오케, 강남 가라오케 추천 강남 가라오케 | 강남 가라오케 퍼펙트 쩜오

icssr2krjg, 2024/11/10 07:08

장기렌트 견적, 장기렌트, 장기렌트 추천, 장기렌트 가격표, 장기렌트 장단점 장기렌트 가격표!!! 실시간 견적 및 문의 언제든 24시간 환영합니다.

93mp90h395, 2024/11/09 06:11

강남 가라오케, 강남 가라오케 퍼펙트, 강남 가라오케 쩜오, 강남 가라오케 추천, 강남 쩜오, 강남 노래주점 추천 강남 가라오케 | 강남 가라오케 퍼펙트 쩜오

5r602dc1lr, 2024/11/08 05:38

제주도 가라오케, 제주 룸싸롱, 제주도 룸싸롱, 제주 노래주점, 제주 유흥주점, 제주도 룸싸롱 유흥 지금 바로 제주도에서 핫한 가라오케 추천!

fg2m2b4s7i, 2024/11/07 11:06

장기렌트 견적, 장기렌트, 장기렌트 가격표, 렌트카, 장기렌트 비용, 장기렌트 추천, 장기렌트 장단점, 신차 장기렌트, 장기렌트 문의 장기렌트 가격표!!! 실시간 견적 및 문의 언제든 24시간 환영합니다.

17jkq2062g, 2024/11/07 10:47

장기렌트 견적, 장기렌트, 장기렌트카, 렌트카, 장기렌트 비용, 장기렌트 추천, 장기렌트카 추천, 신차 장기렌트 장기렌트 실시간 견적 및 문의 언제든 24시간 환영합니다.

y5os28rgnz, 2024/11/07 06:38

강남 가라오케, 강남 가라오케 퍼펙트, 강남 가라오케 쩜오, 강남 가라오케 추천, 강남 노래주점, 강남 핫플 가라오케, 강남 접대 장소, 서울 가라오케, 강남역 가라오케 강남 가라오케 | 강남 가라오케 퍼펙트 쩜오

zbwcfsj9ij, 2024/11/05 12:12

제주도 가라오케, 제주 룸싸롱, 제주도 룸싸롱, 제주 노래주점, 제주 유흥주점, 제주도룸싸롱유흥 제주도 최고의 가라오케 | 룸싸롱 | 제주도룸싸롱유흥 추천합니다.

epjd4hjbf8, 2024/11/04 09:26

강남 가라오케, 강남 가라오케 퍼펙트, 강남 쩜오, 강남 가라오케 추천 요즘 강남 핫플 가라오케 - 강남 가라오케 퍼펙트 쩜오

jljdi35n8u, 2024/11/04 09:25

백링크, 구글 상위노출, 백링크 프로그램, 백링크 작업, 구글 상위노출 프로그램, 구글 상단노출 구글 상위노출 프로그램 - 파워백링커(백링크 프로그램)

dddd, 2024/11/04 09:07

Link externo

Web Blogging Website, 2024/10/30 15:50

Complete guide to creating a blog website and learning online blogging. Learn about blogging and stay updated with the latest updates for bloggers.

Website:- https://thewebblogger.com/

Lucky, 2024/10/30 12:20

Welcome to Golden Triangle Package, your premier travel agency for unforgettable journeys through India's golden triangle region. With years of experience and a passion for travel, we specialize in curating exceptional tours that showcase the best of Delhi, Agra, and Jaipur.

WEebsite- https://www.goldentrianglepackage.in/

Karol Bagh Escorts, 2024/10/23 04:03

Our Karol Bagh Escorts service agency has dealt with numerous clients. Many clients connect with us every day to satisfy their lustful desires by Sexy Independent Karol Bagh Escorts. That is why our Karol Bagh Escorts service has enough experience to meet your expectations and give you a wholesome experience. But if you want a reliable Karol Bagh Escorts service Near Me agency where your 100% satisfaction and pleasure are guaranteed, Every moment spent with our Karol Bagh call girl. will be very special and unique.

https://www.cheapdelhiescorts.com/karol-bagh-escorts.html

Lakhvinder Singh, 2024/09/11 07:22

Very Nice Post. https://www.vintagefinance.in/personal-loan-low-cibil-defaulter-delhi.html

Lakhvinder Singh, 2024/09/10 08:16

With more than 20 years of courier market experience and a worldwide network of agents, Universal Delivery Solutions provides an excellent, efficient and reliable courier service worldwide.

Know More- https://udsww.com/courier-and-parcel-to-india/

Yeezy Slide, 2024/09/06 05:45

Texto em negritohttps://www.yeezyv2-outlet.us Yeezy Slide https://www.yeezyofficialwebsites.org Yeezy Official Websites https://www.yeezyofficialwebsites.org Adidas Yeezy Outlet https://www.yeezyofficialwebsites.org Yeezy Supplys https://www.yeezyofficialwebsites.org Yeezy Shoes https://www.yeezysslide.us Yeezy Slides https://www.yeezysslide.us Yeezy V2 https://www.yeezyv2-outlet.us Yeezy Supply https://www.yeezyv2-outlet.us Yeezy Outlet https://www.yeezyv2-outlet.us Yeezy V2 Outlet https://www.yeezysboost.us Yeezy Supplys https://www.yeezysboost.us Yeezy Boost https://www.yeezysboost.us Yeezys Boost

https://www.yeezysboost.us/sitemap.xml https://www.yeezyv2-outlet.us/sitemap.xml https://www.yeezysslide.us/sitemap.xml https://www.yeezyofficialwebsites.org/sitemap.xml

Tags:yeezy shoes, Yeezy, Adidas Yeezy，yeezy supply, yeezy slide

CINTAS, 2024/04/01 05:19

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/faja-transportadora-para-mecanica/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/banda-transportadora-para-mineria/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/cinta-transportadora-de-uso-general/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/cinta-transportadora-para-puerto/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/banda-transportadora-para-quimicos/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/cinta-transportadora-para-reciclaje/

https://solidobelt.com/es/aplicaciones-de-cinta-transportadora/banda-transportadora-para-vidrio/

https://solidobelt.com/es/cintas/por-aplicaciones/banda-transportadora-de-tejido-solido-cinta-transportadora-con-nervada-de-chevron-de-pvg/

https://solidobelt.com/es/cintas/por-aplicaciones/cintas-transportadoras-de-tuberias/

https://solidobelt.com/es/cintas/por-carcasa/cintas-transportadoras-de-cable-de-acero/

https://solidobelt.com/es/cintas/por-carcasa/cintas-transportadoras-textiles-multiplicadas/

https://solidobelt.com/es/cintas/por-carcasa/cintas-transportadoras-textiles-multiplicadas/bandas-transportadoras-textiles-multiply-algodon/

https://solidobelt.com/es/cintas/por-carcasa/cintas-transportadoras-textiles-multiplicadas/bandas-transportadoras-textiles-multiplicadas-ep/

https://solidobelt.com/es/cintas/por-carcasa/cintas-transportadoras-textiles-multiplicadas/cintas-transportadoras-textiles-multiplicadas-nn/

granallado, 2024/04/01 05:17

https://shotblastech.com/es/granalladora-empresa/proyectos-de-granalladoras/

https://shotblastech.com/es/maquinas-de-granallado/granalladora-de-banda-o-cinta-rotativa-goma-o-metalica/

https://shotblastech.com/es/maquinas-de-granallado/granalladora-de-banda-o-cinta-rotativa-goma-o-metalica/granalladora-de-banda-o-tapiz-con-goma/

https://shotblastech.com/es/maquinas-de-granallado/granalladora-de-banda-o-cinta-rotativa-goma-o-metalica/maquina-de-granalladora-con-banda-de-acero/

https://shotblastech.com/es/maquinas-de-granallado/granalladora-de-hormigon-granallado-de-portatiles-circuito-cerrado-para-concreto-pisos-y-acero/

https://shotblastech.com/applications/shot-blasting-machine-for-foundry/

granallado, 2024/03/25 21:32

First You got a great blog. I will be interested in more similar topics. i see you got really very useful topics, i will be always checking your blog thanks. https://shotblastech.com/shot-blasting-machines/cylinders-shot-blasting-systems-for-cylindrical-items/cylinder-outer-surface-shot-blasting-machine/ https://shotblastech.com/shot-blasting-machine-company/shot-blasting-machine-video/ https://shotblastech.com/es/granalladora-empresa/video-de-granalladora/

tanya singh, 2024/03/20 01:38

shivanisingh, 2024/03/20 01:32

Call Girls Service. Providing various services like dating partners, sexting partners, overnight fun, calling, dinner partners, business meeting companionship, and much more.

Lisayy david, 2023/08/17 12:17

Antioxidant Supplements Canada have gained considerable attention in recent years due to their potential health benefits. https://somalife.com/product/super-x/

yeezy, 2023/08/09 08:08

https://www.yeezyadidas.de/ Yeezy https://www.yeezys.co/ Yeezys https://www.jordan-1.org/ Jordan 1 https://www.air-jordan1.com/ Air Jordan 1 https://www.nikejordan1.com/ Nike Jordan 1 https://www.jordan-1s.com/ Jordan 1S https://www.jordan1.uk.com/ Jordan 1 https://www.jordans-shoes.com/ Jordan Shoes https://www.jordan-shoes.us.com/ Jordan Shoes https://www.nikeuk.uk.com/ Nike UK https://www.yeezy-450.com/ Yeezy 450 https://www.jordanretro4.com/ Jordan Retro 4 https://www.nikeoutletstoreonlineshopping.us/ Nike Outlet Store Online Shopping https://www.yeezy.uk.com/ YEEZY https://www.adidasyeezyofficialwebsite.com/ Adidas Yeezy Official Website https://www.yeezy350.uk.com/ Yeezy 350 https://www.air-jordan4.com/ Air Jordan 4 https://www.yeezyfoam-runner.com/ Yeezy Foam Runner https://www.yeezyslides.us.com/ Yeezy Slides https://www.ray-ban-glasses.us.com/ Ray Ban Glasses https://www.adidasuk.uk.com/ Adidas UK https://www.nflshopofficialonlinestore.com/ NFL Shop Official Online Store https://www.yeezys-slides.us.com/ Yeezy Slides https://www.yeezyadidass.us.com/ Adidas Yeezy https://www.350yeezy.us.com/ Yeezy 350 https://www.yeezyy.us.com/ Yeezy https://www.yeezy350s.us.com/ Yeezy 350 https://www.shoesyeezys.us.com/ Yeezy Shoes https://www.yeezys.uk.com/ Yeezys https://www.off-white.us.org// Off White https://raybansales.us/ Ray Ban https://www.adidasyeezy.uk.com/ Adidas Yeezy https://www.yzyshoes.us.com/ Yeezy Shoes https://www.yeezy-shoes.us.com/ Yeezy Shoes https://www.yeezy-700.us.com/ Yeezy 700 https://www.yeezyadidas.de/ Adidas Yeezy https://www.yeezys.co/ Yeezy https://www.jordan-1.org/ Nike Jordan 1 https://www.air-jordan1.com/ Jordan 1 https://www.nikejordan1.com/ Jordan 1 https://www.jordan-1s.com/ Jordan 1 https://www.jordan1.uk.com/ Jordan UK https://www.jordans-shoes.com/ Jordans Shoes https://www.jordan-shoes.us.com/ Jordan https://www.nikeuk.uk.com/ Nike https://www.yeezy-450.com/ Yeezy https://www.jordanretro4.com/ Jordan 4 https://www.nikeoutletstoreonlineshopping.us/ Nike Outlet https://www.yeezy.uk.com/ YEEZY UK https://www.adidasyeezyofficialwebsite.com/ Adidas Yeezy https://www.yeezy350.uk.com/ Yeezy uk https://www.air-jordan4.com/ Jordan 4 https://www.yeezy-supply.com/ Yeezys Supply https://www.yeezyfoam-runner.com/ Yeezy https://www.yeezyslides.us.com/ YEEZY https://www.ray-ban-glasses.us.com/ Ray Bans Sunglasses https://www.adidasuk.uk.com/ Adidas https://www.nflshopofficialonlinestore.com/ NFL Shop https://www.yeezys-slides.us.com/ Yeezys https://www.yeezyadidass.us.com/ Adidas Yeezys https://www.350yeezy.us.com/ Yeezy 350 V2 https://www.yeezyy.us.com/ Yeezys https://www.yeezy350s.us.com/ Yeezy Boost 350 https://www.shoesyeezys.us.com/ Yeezys Shoes https://www.yeezys.uk.com/ Yeezy https://raybansales.us/ Ray Bans https://www.yeezys-supply.com/ Yeezy Supply https://www.adidasyeezy.uk.com/ Yeezy https://www.yzyshoes.us.com/ Yeezys https://www.yeezy-slides.org/ Adidas Yeezy Slides https://www.yeezy-shoes.us.com/ Yeezy https://www.yeezy-700.us.com/ Yeezy https://cheapyeezysonline.com/ Cheap Yeezys https://yeezysupplystore.com/ Yeezy Supply https://www.yeezyshoesonline.com/ Yeezy Shoes https://www.yeezys-supply.us.com/ Yeezy Supply https://www.yeezys-supply.us.com/ Yeezys https://www.yeezy-s.com/ Yeezy Shoes https://www.yeezy-s.us/ Yeezy https://yeezysale.us/ Yeezy https://www.pandorajewelries.us.com/ Pandora Jewelry Tags:yeezy shoes, Yeezy, Adidas Yeezy

salezi, 2023/07/25 08:47

salezi, 2023/07/25 08:45

henry, 2023/06/07 13:10

Laser Hair Removal Service is the perfect solution for those seeking a more permanent solution to their unwanted body hair. With its advanced laser technology, this service provides long-term results that cannot be achieved by shaving or waxing. https://ardorlaserandskincare.com/hair-removal/

henry, 2023/06/07 13:10

Whether you're looking for something rustic or contemporary, you can rest assured there's a property just right for you. With our unique ability to see beyond the surface and discern the future potential of each residence, we'll help you make the best decision possible when searching for Windermere BC Homes for Sale. https://www.lilliangrant.ca/windermere

kolyana, 2023/06/07 13:09

Shawarma is a Middle Eastern dish which is made of meat cuts roasted over wood on vertical rotisseries called Shawarma Grills. Halal Shawarma is preparing lamb and chicken shawarma in two different styles: Classic and Falafel style. Both are prepared using superior quality local and organic ingredients with hummus, vegetables, cucumber yogurt sauces and wheat buns baked fresh every day to ensure maximum taste and satisfaction. https://imperialshawarma.ca/

sara, 2023/06/07 13:08

Jessica Michaels, is a Certified Neurodiversity Speaker. With 10 years of experience in Health and Fitness, she has witnessed her verbally abusive clients change careers several times. The best coaching for individual potential happens as an authentic collaboration between coach and client/athlete. https://coachjessicamichaels.com/neurodiversity-speaker/

kolter jorj, 2023/06/07 13:08

With their ease of use, effectiveness, and delicious flavors, CBD gummies Canada are a popular choice for those seeking natural wellness solutions. https://www.cbdemporiumcanada.com/edibles

henry coltar, 2023/06/07 13:07

A wood fence Ottawa offers a timeless and natural charm to properties. With its warm and inviting aesthetics, it seamlessly blends with the surrounding environment. https://commencefence.com/wood/

henry, 2023/06/07 11:32

Donor Appreciation plays a pivotal role in recognizing and acknowledging the invaluable contributions of individuals and organizations that support various causes. https://lusens.com/donor-recognition-walls/

kolyana, 2023/06/07 11:31

SEARCH CA - Directory of Muslim Owned Businesses are the most effective method to market your business locally. For more than 20 years, BLS Canada has been helping businesses of all types and sizes to promote their products and services in a cost effective and efficient manner. Our sites have literally given us a platform to launch our business with integrity on and grow it at an amazing rate of speed. We have done what so many other advertising programs claim they will do for you. https://aghaslist.com/

sara, 2023/06/07 11:31

Embossing Machines are perfect for making hard enamel, metallic and opal effects on projects such as birthday party invitations, thank you cards and event tickets. Thermal ink is easily prepped with these versatile tools allowing for quick and easy make up of images or text from a computer, camera or phone. https://www.shortorderproducts.com/product-category/embossing/embossing-machines/

kolter jorj, 2023/06/07 11:30

If you want someone who is dedicated to your protection, look no further than Sydney based security guard company Residential Security Guard. Situated just 25km from the CBD at Homebush, this professional and motivated team are eager to protect buildings around the clock, 365 days a year. With ample experience under their belt this team has consistently shown diligence in both physical and protective barriers. They know that customers depend on them for peace of mind whether there's a construction zone or car park extending out over time, Residential Security Guard are up for the challenge. https://fenixsecurityservice.com/residential-security-guard-services-cape-coral-fl/

henry coltar, 2023/06/07 11:29

Are you seeking a better way to manage your business operations? Look no further than Best Cabinet Refinishing Mississauga Service, an easy to set up and operate bar services company that will take care of all your beverage service needs. From event - based as well as full - time business setups in Burnaby BC, our exceptional staff has years of industry experience behind them. We've also made it super simple for you to get started with the Launch App on your phone or tablet. You just need to download the app to start booking parties, events and special occasions immediately. https://kitchenmadenew.com/services/cabinet-refacing/

Tabela de conteúdos

CE-083: Estatística Computacional II

Detalhes da oferta da disciplina

Scripts, notas e documentos

Links úteis

Avaliações

Discussão

Navegação

Busca

Ferramentas

QR Code