01.11.2014 Views

Prácticas de Estadística en R - Departamento de Estadística e ...

Prácticas de Estadística en R - Departamento de Estadística e ...

Prácticas de Estadística en R - Departamento de Estadística e ...

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

6.2 Distribución <strong>de</strong> Bernoulli 51<br />

> par(mfrow=c(4,1))<br />

> barplot(frec.rel,col="lightblue",ylab="Frecu<strong>en</strong>cias<br />

relativas",main="Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos")<br />

> num.lan=100<br />

> lanzami<strong>en</strong>tos=moneda(num.lan)<br />

> frec.abs=table(lanzami<strong>en</strong>tos) # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias absolutas<br />

> frec.rel=frec.abs/num.lan # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias relativas<br />

> barplot(frec.rel,col="lightblue",ylab="Frecu<strong>en</strong>cias<br />

relativas",main="Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos")<br />

> num.lan=1000<br />

> lanzami<strong>en</strong>tos=moneda(num.lan)<br />

> frec.abs=table(lanzami<strong>en</strong>tos) # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias absolutas<br />

> frec.rel=frec.abs/num.lan # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias relativas<br />

> barplot(frec.rel,col="lightblue",ylab="Frecu<strong>en</strong>cias<br />

relativas",main="Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos")<br />

> num.lan=10000<br />

> lanzami<strong>en</strong>tos=moneda(num.lan)<br />

> frec.abs=table(lanzami<strong>en</strong>tos) # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias absolutas<br />

> frec.rel=frec.abs/num.lan # Correspon<strong>de</strong> a las frecu<strong>en</strong>cias relativas<br />

> barplot(frec.rel,col="lightblue",ylab="Frecu<strong>en</strong>cias<br />

relativas",main="Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos")<br />

Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos<br />

Frecu<strong>en</strong>cias<br />

relativas<br />

0.0 0.4<br />

C<br />

X<br />

Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos<br />

Frecu<strong>en</strong>cias<br />

relativas<br />

0.0 0.4<br />

C<br />

X<br />

Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos<br />

Frecu<strong>en</strong>cias<br />

relativas<br />

0.0 0.4<br />

C<br />

X<br />

Diagrama <strong>de</strong> barras <strong>de</strong> Lanzami<strong>en</strong>tos<br />

Frecu<strong>en</strong>cias<br />

relativas<br />

0.0 0.4<br />

C<br />

X<br />

Figura 6.1: Frecu<strong>en</strong>cias relativas para el lanzami<strong>en</strong>to <strong>de</strong> monedas con<br />

n = 10, 100, 1000, 10000.<br />

Parece ser que, cuanto mayor es el número <strong>de</strong> int<strong>en</strong>tos, más se acerca la frecu<strong>en</strong>cia relativa<br />

<strong>de</strong>l número <strong>de</strong> caras a 0.5. Este valor correspon<strong>de</strong> a lo que llamamos probabilidad <strong>de</strong>

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!