Importar archivos de excel

setwd("~/pye1pm")
library(readxl)
pozos <- read_excel("pozos.xlsx")
library(pacman)
p_load("readxl","DT")
library(fdth)
## 
## Attaching package: 'fdth'
## The following objects are masked from 'package:stats':
## 
##     sd, var
tabla <- fdt(pozos)

PREGUNTAS DE EXAMEN:

1.- ¿Qué es la estadística y que aplicaciones tiene en ingeniería (según su ingeniería)? Es usada para entender la variabilidad de sistemas de medida, control de procesos, así como el control estadístico de procesos, para compilar datos y de esta manera poder tomar una decisión que sea acertiva.

2.- Enliste y defina los tipos de variables usados en estadística, de 2 ejemplos de cada uno. Defina distribución de frecuencia y explique que es la distribución normal.

Variable cuantitativa: son variables que se expresan numéricamente.

Variable cualitativa: son variables que se expresan, por norma general, en palabras.

Las distribuciones de frecuencias: son tablas en que se dispone las modalidades de la variable por filas.

La distribución normal: están basados en una “normalidad” más o menos justificada de la variable.

ENSAYO PREGUNTA DE RESCATE:

Definitivamente hay un largo camino por recorrer, estamos aún muy lejos de lograrlo. Creo que no es sólo responsabilidad del gobierno; todos debemos participar para lograr esa meta , dice en entrevista Vivian Lan, embajadora de Singularity University, organización que busca inspirar a líderes que, a través del desarrollo exponencial de la tecnología.

Aunque el proceso de innovación en las empresas es clave para detonar mayor productividad e ingresos reales para la población, 18.4% de las empresas reportó que no implementa ningún tipo de innovación, destaca el Reporte sobre las Economías Regionales del Banco de México (Banxico)

Necesitamos una cultura de colaboración, y eso implica una cultura de confianza que hace mucha falta en México. (Confiar en el otro para poder colaborar y así generar ideas innovadoras).

Fallar. Es importante no tener miedo a fallar. Lo que hace que Silicon Valley sea la cultura de innovación que es hoy en día, es gracias a que se permite fallar. Fallar no es un fracaso, es una oportunidad.

Políticas públicas: Hacen falta muchas políticas que ayuden al emprendedor en cuestiones fiscales y hasta en la legislación como tal. Unir fuerzas. Empezando por unir fuerzas, confiar en el otro y por sumar esfuerzos para nuevos propósitos, en vez de partir de la desconfianza.

Los siguientes datos nos muestra la frecuencia de la temperatura y el Ph de el agua:

pozos
## # A tibble: 293 x 2
##       PH  TEMP
##    <dbl> <dbl>
##  1   6.8  28.5
##  2   6.9  29.2
##  3   6.8  28.9
##  4   7.1  29.4
##  5   6.6  28.3
##  6   6.8  28.4
##  7   6.5  28  
##  8   6.9  27.5
##  9   7    28.7
## 10   7    28.6
## # ... with 283 more rows

ahora ordenaremos los datos de PH y TEMP de menor a mayor:

sort (pozos$PH)
##   [1] 6.1 6.3 6.4 6.4 6.4 6.4 6.4 6.4 6.4 6.5 6.5 6.5 6.5 6.5 6.5 6.5 6.5 6.5
##  [19] 6.5 6.5 6.5 6.5 6.5 6.5 6.5 6.5 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6
##  [37] 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.6 6.7 6.7 6.7 6.7 6.7
##  [55] 6.7 6.7 6.7 6.7 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8
##  [73] 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8
##  [91] 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8
## [109] 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.8 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9
## [127] 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9
## [145] 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 6.9 7.0 7.0
## [163] 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0
## [181] 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0
## [199] 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0
## [217] 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0 7.0
## [235] 7.0 7.0 7.0 7.0 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1
## [253] 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.1 7.2 7.2
## [271] 7.2 7.2 7.2 7.2 7.2 7.2 7.2 7.2 7.2 7.2 7.3 7.3 7.3 7.3 7.3 7.3 7.4 7.4
## [289] 7.4 7.4 7.4 7.4 7.5
sort (pozos$TEMP)
##   [1] 25.6 25.8 26.2 26.3 26.3 26.4 26.4 26.8 26.8 26.9 27.0 27.0 27.1 27.2 27.2
##  [16] 27.3 27.3 27.3 27.3 27.4 27.4 27.4 27.4 27.4 27.5 27.5 27.5 27.5 27.5 27.5
##  [31] 27.5 27.5 27.5 27.5 27.5 27.5 27.6 27.7 27.7 27.7 27.7 27.8 27.8 27.8 27.8
##  [46] 27.8 27.8 27.8 27.8 27.8 27.8 27.8 27.9 27.9 27.9 27.9 27.9 27.9 27.9 27.9
##  [61] 27.9 27.9 27.9 27.9 27.9 27.9 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0
##  [76] 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.0 28.1 28.1 28.1 28.2 28.2 28.2
##  [91] 28.2 28.2 28.2 28.2 28.2 28.2 28.2 28.2 28.2 28.3 28.3 28.3 28.3 28.3 28.3
## [106] 28.3 28.4 28.4 28.4 28.4 28.4 28.4 28.4 28.5 28.5 28.5 28.5 28.5 28.5 28.5
## [121] 28.5 28.5 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6 28.6
## [136] 28.6 28.6 28.6 28.6 28.6 28.6 28.7 28.7 28.7 28.7 28.7 28.7 28.7 28.7 28.7
## [151] 28.7 28.7 28.7 28.7 28.8 28.8 28.8 28.8 28.8 28.8 28.8 28.8 28.8 28.8 28.8
## [166] 28.8 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9 28.9
## [181] 28.9 28.9 28.9 28.9 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0 29.0
## [196] 29.0 29.0 29.0 29.1 29.1 29.1 29.1 29.1 29.1 29.1 29.1 29.1 29.1 29.1 29.2
## [211] 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.2 29.3 29.3
## [226] 29.3 29.3 29.4 29.4 29.4 29.4 29.4 29.4 29.4 29.4 29.4 29.4 29.4 29.5 29.5
## [241] 29.5 29.5 29.5 29.5 29.5 29.5 29.5 29.6 29.6 29.6 29.7 29.7 29.8 29.8 29.8
## [256] 29.8 29.8 29.8 29.9 29.9 29.9 29.9 30.0 30.0 30.0 30.0 30.0 30.0 30.1 30.1
## [271] 30.1 30.1 30.2 30.2 30.2 30.3 30.3 30.3 30.3 30.4 30.5 30.6 30.8 30.9 31.1
## [286] 31.1 31.1 31.2 31.4 31.5 31.7 31.9 32.1

Histograma del PH:

hist(pozos$PH)

Histograma del TEMP:

hist(pozos$TEMP)

plot(pozos$TEMP, pozos$PH)

Histogramas de frecuencia relativas:

Histogramas de frecuencia absoluta:

plot(tabla, type = "fh")

plot(tabla, type = "rfh")

Histogramas de frecuencia acumulado:

plot(tabla, type = "cfh")

Poligonos de fecuencia:

poligonos de frecuencia absoluta:

plot(tabla, type = "fp")

ACONTINUACION TENEMOS LAS MEDIDAS DE TENDENCIA CENTRAL DEL TEMP.

Media

mean(pozos$TEMP)
## [1] 28.69795

Mediana

median(pozos$TEMP)
## [1] 28.7

Moda

#mlv(pozos$TEMP, method = "mfv")

ACONTINUACION TENEMOS LAS MEDIDAS DE TENDENCIA CENTRAL DEL PH.

Media

mean(pozos$PH)
## [1] 6.890444

Mediana

median(pozos$PH)
## [1] 6.9

Moda

#mlv(pozos$PH, method = "mfv")

Medidas de dispersion:

Varianza:

var(pozos)
##                PH         TEMP
## PH    0.049086446 -0.004574431
## TEMP -0.004574431  1.035406751

Desviacion Estandar:

#sd (pozos)

Grafico caja y bigote:

boxplot(pozos$PH)

boxplot(pozos$TEMP)

Grafica de dispersion:

plot(pozos)