library(readxl)
Control_de_Calidad <- read_excel("F:/Users/Diego/Documents/DCP/Ingenieria Industrial Estadistica/R_dcp/Estating/Control de calidad/Control de Calidad.xlsx")
cc<-Control_de_Calidad
cc
## # A tibble: 25 x 7
##      Dia Visco1 Visco2 Visco3 Promedio Desv.Est  Rango
##    <dbl>  <dbl>  <dbl>  <dbl>    <dbl>    <dbl>  <dbl>
##  1     1   10.4   10.2   10.4     10.3    0.101 0.180 
##  2     2   10.5   10.2   10.6     10.4    0.175 0.340 
##  3     3   10.8   10.2   10.5     10.5    0.276 0.550 
##  4     4   10.5   10.3   10.3     10.3    0.11  0.21  
##  5     5   10.8   10.8   10.5     10.7    0.159 0.31  
##  6     6   10.5   10.5   10.5     10.5    0.025 0.0500
##  7     7   10.4   10.5   10.5     10.5    0.055 0.110 
##  8     8   10.4   10.4   10.7     10.5    0.173 0.310 
##  9     9   10.3   10.4   10.5     10.4    0.087 0.16  
## 10    10   10.7   10.4   10.3     10.5    0.218 0.430 
## # ... with 15 more rows
summary(cc)
##       Dia         Visco1          Visco2          Visco3         Promedio    
##  Min.   : 1   Min.   :10.00   Min.   :10.19   Min.   :10.25   Min.   :10.31  
##  1st Qu.: 7   1st Qu.:10.39   1st Qu.:10.35   1st Qu.:10.32   1st Qu.:10.41  
##  Median :13   Median :10.46   Median :10.52   Median :10.40   Median :10.46  
##  Mean   :13   Mean   :10.47   Mean   :10.50   Mean   :10.46   Mean   :10.48  
##  3rd Qu.:19   3rd Qu.:10.48   3rd Qu.:10.68   3rd Qu.:10.56   3rd Qu.:10.49  
##  Max.   :25   Max.   :10.84   Max.   :10.75   Max.   :10.83   Max.   :10.76  
##     Desv.Est          Rango      
##  Min.   :0.0250   Min.   :0.050  
##  1st Qu.:0.0870   1st Qu.:0.160  
##  Median :0.1590   Median :0.310  
##  Mean   :0.1534   Mean   :0.292  
##  3rd Qu.:0.1960   3rd Qu.:0.390  
##  Max.   :0.3820   Max.   :0.710
## Solo las variables a medir
cc2<-cc[,2:4]
dim(cc2)
## [1] 25  3
summary(cc2)
##      Visco1          Visco2          Visco3     
##  Min.   :10.00   Min.   :10.19   Min.   :10.25  
##  1st Qu.:10.39   1st Qu.:10.35   1st Qu.:10.32  
##  Median :10.46   Median :10.52   Median :10.40  
##  Mean   :10.47   Mean   :10.50   Mean   :10.46  
##  3rd Qu.:10.48   3rd Qu.:10.68   3rd Qu.:10.56  
##  Max.   :10.84   Max.   :10.75   Max.   :10.83

Correlación entre variables

##             Visco1      Visco2     Visco3
## Visco1  1.00000000 -0.11378962 0.03924069
## Visco2 -0.11378962  1.00000000 0.08489237
## Visco3  0.03924069  0.08489237 1.00000000

Gráfica de control por Rangos

Gráfica de control por Medias

##       LCL      UCL
##  10.27671 10.67502

Estadisticas para análisis de medias

## $beyond.limits
## integer(0)
## 
## $violating.runs
## numeric(0)
##       LCL     UCL
##  10.17713 10.7746
## [1] 10.47587
##        1        2        3        4        5        6        7        8 
## 10.30667 10.43333 10.51000 10.34667 10.70667 10.50333 10.46333 10.49000 
##        9       10       11       12       13       14       15       16 
## 10.39000 10.49333 10.44667 10.43667 10.40333 10.60667 10.49333 10.48000 
##       17       18       19       20       21       22       23       24 
## 10.44333 10.76000 10.47000 10.39000 10.59333 10.44333 10.40667 10.48667 
##       25 
## 10.39333
## [1] 0.1724749