Lenguaje R
Lenguaje R
Lenguaje R
R
carlostellezmartinez
Sat Feb 7 16:56:03 2015
## ============================================
# Diagrama de Pareto
# Control Estadstico de Calidad
# Febrero de 2015
# Dr. Carlos Tllez Martnez
# Tecnolgico de Monterrey, Campus Guadalajara
## ============================================
Defecto Cantidad
Piel Arrugada
99
135
## 3
Reventado de piel
369
## 4
Mal montada
135
attach(Ejercicio_61)
names(Ejercicio_61)
## [1] "Defecto"
"Cantidad"
##
99
##
Mal montada
##
135
Reventado de piel
135
369
##
Reventado de piel
369
369
50.00000
50.00000
##
135
504
18.29268
68.29268
##
Mal montada
135
639
18.29268
86.58537
##
Piel Arrugada
99
738
13.41463
100.00000
Tabla
##
## Pareto chart analysis for Tipo
##
##
Reventado de piel
369
369
50.00000
50.00000
##
135
504
18.29268
68.29268
##
Mal montada
135
639
18.29268
86.58537
##
Piel Arrugada
99
738
13.41463
100.00000
##
Defecto
## 1
## 2
## 3
## 4
## 5
## 6
## 7
## 8
## 9
## 10
## 11
## 12
## 13
## 14
## 15
## 16
## 17
## 18
## 19
## 20
## 21
## 22
## 23
## 24
## 25
## 26
## 27
## 28
## 29
## 30
## 31
## 32
## 33
## 34
## 35
## 36
## 37
## 38
## 39
## 40
## 16 14 10
# Se crea el diagrama de Pareto
pareto.chart(Tabla_defectos)
##
## Pareto chart analysis for Tabla_defectos
##
##
16
16
40
40
##
14
30
35
75
##
10
40
25
100
# ===========================================
# Dr. Carlos Tllez Martnez
# Febrero de 2015
# Control Estadstico de Calidad
# DIAGRAMA DE ISHIKAWA EN R
# ===========================================
Materials=c("Alloys", "Lubricants",
"Suppliers"),
Personnel=c("Shofts", "Supervisors",
"Training", "Operators"),
Environment=c("Condensation", "Moisture"),
Methods=c("Brake", "Engager", "Angle"),
Machines=c("Speed", "Lathes", "Bits",
"Sockets")),
effect="Surface Flaws")
## Otro mtodo:
library(SixSigma)
# Se elabora el diagrama
effect <- "Flight Time"
causes.gr <- c("Operator", "Environment", "Tools", "Design",
"Raw.Material", "Measure.Tool")
causes <- vector(mode = "list", length = length(causes.gr))
causes[1] <- list(c("operator #1", "operator #2", "operator #3"))
causes[2] <- list(c("height", "cleaning"))
causes[3] <- list(c("scissors", "tape"))
causes[4] <- list(c("rotor.length", "rotor.width2", "paperclip"))
causes[5] <- list(c("thickness", "marks"))
causes[6] <- list(c("calibrate", "model"))
ss.ceDiag(effect, causes.gr, causes, sub = "Paper Helicopter Project")
Diagrama.R
carlostellezmartinez
Tue Feb 3 22:01:36 2015
# ===========================================
# Dr. Carlos Tllez Martnez
# Febrero 2015
# Control Estadstico de Calidad
# DIAGRAMA DE DISPERSIN Y CORRELACION EN R
# ===========================================
attach(airquality)
names(airquality)
## [1] "Ozone"
"Solar.R" "Wind"
"Temp"
"Month"
"Day"
Histograma.R
carlostellezmartinez
Tue Feb 3 21:06:41 2015
# ===========================================
# Dr. Carlos Tllez Martnez
# Febrero de 2015
# Control Estadstico de Calidad
# HISTOGRAMA EN R
# ===========================================
attach(airquality)
names(airquality)
## [1] "Ozone"
"Solar.R" "Wind"
"Temp"
"Month"
"Day"
xlim=c(30,125))
polygon(densidad, col="red")
par(mfrow=c(1,1))