Diplomado en Gestión de Obras y Proyectos
Proyecto de Investigación 2016 de 2018
Ejemplo de Muestreo del Trabajos:
Atención
Si agrega avances de obra, asegúrese de cargarlos en la carpeta:
getwd()
[1] "/media/rpalma/OS/AAA_Datos/2018/Posgrado/R-CRAN/Muestreo Trabajo"
Si necesita totalizar consumos de combustibles o km de desplazamiento fuera o dentro de la obra:
Habilite el seguimiento de flota en este link
En caso de accidente presione el botón de pánico
library(readr)
Trabajo_Productivo <- read_csv("Trabajo_Productivo2.csv")
# View(Trabajo_Productivo)
head(Trabajo_Productivo)
# A tibble: 6 x 27
Obra Mue Hora `N° de obs` P `A° Hierro` `H° Tabique` Grua
<chr> <int> <tim> <int> <int> <int> <int> <int>
1 Edif… 1 14:00 8 6 3 2 1
2 Edif… 2 14:15 13 6 0 0 1
3 Edif… 3 14:30 8 4 3 0 1
4 Edif… 4 14:45 11 8 0 2 1
5 Edif… 5 15:00 11 6 3 0 1
6 Edif… 6 15:15 16 11 3 3 1
# ... with 19 more variables: Excavación <int>, `Encofrado T°` <int>,
# `Tn-2` <int>, `Tn-1` <int>, Tn <int>, C <int>, Transporte <int>,
# Instrucciones <int>, Medición <int>, Limpieza <int>, Otros <int>,
# NC <int>, Espera <int>, Ocio <int>, Transportes <int>, Descanso <int>,
# `Nec. Fisiolog.` <int>, Reprocesos <int>, OBSERVACIONES <chr>
Min. 1st Qu. Median Mean 3rd Qu. Max.
1.000 2.000 3.000 4.143 6.000 13.000
Muestras de trabajo no contributivo
Se muestran intervalos en más y menos una vez el error estandard en lÃneas rojas
Casos a revisar
which(Trabajo_Productivo$NC>10)
[1] 13
which(Trabajo_Productivo$C>4)
[1] 16 18
Trabajo_Productivo[c(13,16,18),]
# A tibble: 3 x 27
Obra Mue Hora `N° de obs` P `A° Hierro` `H° Tabique` Grua
<chr> <int> <tim> <int> <int> <int> <int> <int>
1 Edif… 13 17:00 27 12 6 0 1
2 Edif… 16 17:45 19 11 0 2 1
3 Edif… 18 18:15 24 14 3 3 1
# ... with 19 more variables: Excavación <int>, `Encofrado T°` <int>,
# `Tn-2` <int>, `Tn-1` <int>, Tn <int>, C <int>, Transporte <int>,
# Instrucciones <int>, Medición <int>, Limpieza <int>, Otros <int>,
# NC <int>, Espera <int>, Ocio <int>, Transportes <int>, Descanso <int>,
# `Nec. Fisiolog.` <int>, Reprocesos <int>, OBSERVACIONES <chr>
plot(Trabajo_Productivo[(1:27),(2:20)])