sábado, 12 de abril de 2025

Nas próximas eleições legislativas, vai ficar tudo parecido, AD 81 // PS 76 // CHEGA 43 deputados.

Peguei nas sondagens publicadas em Abril de 2025.

No total, estas sondagens somam 3480 respostas sendo que 4,7% não conseguiram disser em que partido vão votar. Não inclui a sondagem da Consulmark2 porque não encontrei o tamanho da amostra.



Resultados (intervalo de confiança de 95%)

AD = 77 a 85 deputados (média de 81)

PS = 72 a 80 deputados (média de 76)

CHEGA = 39 a 46 deputados (média de 43)

IL = 11 a 16 deputados (média de 13.5)

BE = 2 a 6 deputados (média de 4)

PCP = 3 a 6 deputados (média de 4.5)

LIVRE = 6 a 11 deputados (média de 8.5)

PAN = 0 a 1 deputados (média de 0.3)


AD e PS estão empatados mas pouco.

Apesar de a AD e o PS estarem empatados para um intervalo de confiança de 95%, a probabilidade de o PS ficar à frente da AD é de apenas 10%.


Para os mais interessados 

Indico o artigo onde podem ver a fundamentação estatística para os intervalos de confiança (a 95%).

Vieira, PCC (2025), Inferência estatística vetorial -Sondagens eleitorais, Researchgate 


O código R usado no cálculo

AD=0

PS=0

CHEGA=0

IL=0

BE=0

PCP=0

Livre=0

PAN=0


for(i in 1:100000)

   {#sondagens

    agregado =sample(1:9,3480,rep=TRUE,prob=c(29.9, 28.2,16.7,6.7,3.4,3.6,5.0,1.8,4.7))

    #Calcula os deputados

    partidos=table(agregado)[-9]

    percentagem=partidos/sum(partidos)

    deputados=296*percentagem - 6.44

    deputados[deputados<0]=0

    deputados=round(deputados/sum(deputados)*230,0)

    #AD PS Chega IL BE CDU Livre PAN ND

    AD[i]=deputados[1]

    PS[i]=deputados[2]

    CHEGA[i]=deputados[3]

    IL[i]=deputados[4]

    BE[i]=deputados[5]

    PCP[i]=deputados[6]

    Livre[i]=deputados[7]

    PAN[i]=deputados[8]

   }

x=sort(AD)

c(x[500], x[2500], mean(AD), x[97500],x[99500])

x=sort(PS)

c(x[500],x[2500], mean(PS), x[97500],x[99500])

x=sort(CHEGA)

c(x[500],x[2500], mean(CHEGA), x[97500],x[99500])

x=sort(IL)

c(x[500],x[2500], mean(IL), x[97500],x[99500])

x=sort(BE)

c(x[500],x[2500], mean(BE), x[97500],x[99500])

x=sort(PCP)

c(x[500],x[2500], mean(PCP), x[97500],x[99500])

x=sort(Livre)

c(x[500],x[2500], mean(Livre),x[97500],x[99500])

x=sort(PAN)

c(x[500],x[2500],mean(PAN),x[97500],x[99500])


x=sort(PS+BE+PCP+Livre)

c(x[500], x[2500], mean(x), x[97500],x[99500])

x=sort(AD+IL)

c(x[500], x[2500], mean(x), x[97500],x[99500])

x=sort(AD+CHEGA)

c(x[500], x[2500], mean(x), x[97500],x[99500])

#AD>PS

(sum((AD>PS)*1)+sum((AD==PS)*0.5))/100000


0 comentários:

Enviar um comentário

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Free WordPress Themes | Bloggerized by Lasantha - Premium Blogger Themes | Best Hostgator Coupon Code