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 ...
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
82 10. Tests <strong>de</strong> bondad <strong>de</strong> ajuste<br />
10.2. Conjunto <strong>de</strong> datos: Tiempo <strong>de</strong> acesso a la web <strong>de</strong>s<strong>de</strong><br />
biblioteca<br />
10.2.1. Análisis exploratorio <strong>de</strong> los datos<br />
Lo primero que vamos a hacer es importar un fichero <strong>de</strong> datos que se <strong>en</strong>cu<strong>en</strong>tra <strong>en</strong><br />
WebCT. Para ello, <strong>de</strong>bemos escribir:<br />
> tiem=read.table("c:/temp/Tiempoaccesoweb.txt",<strong>de</strong>c=",")<br />
> tiempos=as.vector(tiem$V2,mo<strong>de</strong>="numeric")<br />
Vemos que t<strong>en</strong>emos una variable <strong>de</strong> 55 datos correspondi<strong>en</strong>tes a los tiempos <strong>de</strong> acesso a<br />
la página web. Repres<strong>en</strong>tamos <strong>en</strong> primer lugar un histograma <strong>de</strong> los datos:<br />
> n.cl=8<br />
> puntos=min(tiempos)+(0:n.cl)*(max(tiempos)-min(tiempos))/n.cl<br />
> hist(tiempos,breaks=puntos,freq=FALSE)<br />
y observamos que la variable es bastante simétrica. Calculamos las principales medidas<br />
estadísticas:<br />
> mean(tiempos)<br />
[1] 1.425455<br />
> median(tiempos)<br />
[1] 1.42<br />
Vemos que la media y la mediana son muy próximas indicando que la variable pue<strong>de</strong><br />
ser bastante simétrica. Veamos algunos cuantiles:<br />
> c.tiempo=as.numeric(quantile(tiempos,probs=c(.1,.25,.5,.75,.9)))<br />
> c.tiempo<br />
1.268 1.345 1.420 1.495 1.606<br />
Las difer<strong>en</strong>cias <strong>en</strong>tre los cuantiles a la mediana son bastante parecidas para cuantiles<br />
emparejados lo que pue<strong>de</strong> confirmar la simetría:<br />
> c.tiempo[2]-c.tiempo[3]<br />
[1] -0.075<br />
> c.tiempo[3]-c.tiempo[4]<br />
[1] -0.075<br />
> c.tiempo[1]-c.tiempo[3]<br />
[1] -0.152<br />
> c.tiempo[3]-c.tiempo[5]<br />
[1] -0.186