180 Datos de tiempos

——————

###Medida de tiempo en “hmmss”

datos1=c( 10253, 10302, 10307, 10309, 10349, 10353, 10409, 10442, 10447,
            10452, 10504, 10517, 10530, 10540, 10549, 10549, 10606, 10612, 10646, 10648, 10655,
            10707, 10726, 10731, 10737, 10743, 10808, 10833, 10843, 10920, 10938, 10949, 10954,
            10956, 10958, 11004, 11009, 11024, 11037, 11045, 11046, 11049, 11104, 11127, 11205,
            11207, 11215, 11226, 11233, 11239, 11307, 11330, 11342, 11351, 11405, 11413, 11438,
            11453, 11500, 11501, 11502, 11503, 11527, 11544, 11549, 11559, 11612, 11617, 11635,
            11655, 11731, 11735, 11746, 11800, 11814, 11828, 11832, 11841, 11909, 11926, 11937,
            11940, 11947, 11952, 12005, 12044, 12113, 12209, 12230, 12258, 12309, 12327, 12341,
            12413, 12433, 12440, 12447, 12530, 12600, 12617, 12640, 12700, 12706, 12727, 12840,
            12851, 12851, 12937, 13019, 13040, 13110, 13114, 13122, 13155, 13205, 13210, 13220,
            13228, 13307, 13316, 13335, 13420, 13425, 13435, 13435, 13448, 13456, 13536, 13608,
            13612, 13620, 13646, 13705, 13730, 13730, 13730, 13747, 13810, 13850, 13854, 13901,
            13905, 13907, 13912, 13920, 14000, 14010, 14025, 14152, 14208, 14230, 14344, 14400,
            14455, 14509, 14552, 14652, 15009, 15026, 15242, 15406, 15409, 15528, 15549, 15644,
            15758, 15837, 15916, 15926, 15948, 20055, 20416, 20520, 20600, 20732, 20748, 20916,
            21149, 21714, 23256)
Convertir medidas de tiempo a horas

——————

###>x%/% = integer division

horas=datos1%/%10000
min=(datos1-horas*10000)%/%100
seg=datos1-horas*10000-min*100
tiempos=horas+min/60+seg/3600
Histograma de 2 intervalos

——————

###Combine multiple plots into one overall graph, using either the par( )

###You can include the option mfrow=c(nrows, ncols) to create a matrix of nrows x ncols plots that are filled in by row.

par(mfrow=c(1.5,1.5))
hist(x=tiempos,breaks=2,main="Histograma de 2 intervalos",xlab="Tiempo horas",ylab="Frecuencias",col="pink")
mtext("(A)",side=1, line=4,font=2,col="pink")

Histograma de 4 intervalos

——————

par(mfrow=c(1.5,1.5))
hist(x=tiempos,breaks=4, main="Histograma de 4 intervalos",xlab="Tiempo en horas",ylab="Frecuencias",col="pink")
mtext("(B)",side=1,line=4,font=2,col="pink")

Histograma de 8 intervalos

——————

par(mfrow=c(1.5,1.5))
hist(x=tiempos,breaks=8,main="Histograma de 8 intervalos",xlab="Tiempo en horas",ylab="Frecuencias",col="pink")
mtext("(C)",side=1,line=4,font=2,col="pink")

Histograma de 16 intervalos

——————

###Breaks() –> determina número de intervalos

par(mfrow=c(1.5,1.5))
hist(x=tiempos,breaks=16,main="Histograma de 16 intervalos",xlab="Tiempo en horas",ylab="Frecuencias",col="pink")
mtext("(D)",side=1,line=4,font=2,col="pink")

Puntos de corte

——————

puntos1=c(quantile(tiempos,probs=c(0,0.5,1)))
puntos2=c(quantile(tiempos,probs=c(0,0.25,0.5,0.75,1)))
puntos3=c(quantile(tiempos,probs=seq(0,1,by=0.1)))
puntos4=c(quantile(tiempos,probs=seq(0,1,by=0.05)))
Histograma de 2 intervalos

——————

###Puntos de corte dados por el minimo, la mediana y el maximo

par(mfrow=c(1.5,1.5))
hist(tiempos,breaks=puntos1,freq=FALSE,ylim=c(0,2),labels=TRUE,main="Histograma puntos1",ylab="Densidad",col="pink")
mtext("(A)",side=1,line=4,font=2,col="pink")

Histograma de 4 intervalos

——————

###Puntos de cortes dados por el minimo, cuartiles[1,2,3] y maximo

par(mfrow=c(1.5,1.5))
hist(tiempos,breaks=puntos2,freq=FALSE,ylim=c(0,2),labels=TRUE,main="Histograma puntos2",ylab="Densidad",xlab="",col="pink")
mtext("(B)",side=1,line=4,font=2,col="pink")

Histograma de 10 intervalos

——————

###Puntos de cortes dados por deciles

par(mfrow=c(1.5,1.5))
hist(tiempos,breaks=puntos3,freq=FALSE,ylim=c(0,2),main="Histograma puntos3",ylab="Densidad",col="pink",xlab="Tiempos")
mtext("(C)",side=1,line=4,font=2,col="pink")

Histograma de 20 intervalos

——————

###Puntos de corte dados por cuantiles

par(mfrow=c(1.5,1.5))
hist(tiempos,breaks=puntos4,freq=FALSE,ylim=c(0,2),main="Histograma puntos4",ylab="Densidad",col="pink",xlab="Tiempos")
mtext("(D)",side=1,line=4,font=2,col="pink")