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 ...
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>