Primeira vez aqui? Seja bem vindo e cheque o FAQ!
x

Represente graficamente a probabilidade de uma tachinha cair de cabeça para cima .

0 votos
12 visitas
perguntada Mai 21 em Estatística por Fábio Springer (1 ponto)  

Se uma tachinha for jogada no ar, ela pode parar no chão com qualquer
a ponta para cima ou a ponta tocando. Encontre uma tachinha. Antes de fazer qualquer experimento, qual você acha que é a probabilidade de cair com a cabeça para cima?

Depois, jogue a tachinha 20 vezes e represente graficamente a probabilidade de log de \(\pi\). Então faça outro experimento: Jogue a tachinha até que ele acerte o ponto 5 vezes e represente graficamente o registro probabilidade de \(\pi\ com base neste experimento.

Compartilhe

1 Resposta

0 votos
respondida Mai 22 por Fábio Springer (1 ponto)  

Sem fazer qualquer experimento eu espero que a probabilidade da tachinha cair com a cabeça para cima seja menor do que cair com a cabeça tocando solo.

Os resultados encotrados foram: (B,B,B,B,B,B,C,C,B,C,C,B,B,B,C,B,B,B,C,B). B significa que caiu com a cabeça para baixo e C para cima.

Para fazer o plot o código em R foi:

resultados <_ data.frame(as.factor(c("B","B","B","B","B","B","C","C","B","C","C","B","B","B","C","B","B","B","C","B")))

plot(resultados)

A imagem será apresentada aqui.

Agora vamos plotar a função de verossimilhança, perceba que podemos tratar esse experimento com uma binomial e vamos assumir C como sucesso, logo nossa probabilidade de sucesso é P = 14/20.

binom1 <- log(dbinom(x = 1: 100, prob = (6/20), size = 20))
plot(binom1)

A imagem será apresentada aqui.

Por fim repetimos o experimento até obter 5 faces para cima e encontramos:
("B", "B","B","C","B","C","B","C","B","B","B","C","B","C")
Fazemos o mesmo procedimento anterior, sabendo que a nova probabilidade de sucesso é
P = 5/ 14
binom2 <- log(dbinom(x = 1: 100, prob = (5/14), size = 14))
plot(binom2)

A imagem será apresentada aqui.

...