Graficas de Confiabilidad y Probabilidad de falla

NORMALIZACIÓN Y CONTROL DE LA CALIDAD

---

Graficas de Confiabilidad y Probabilidad de falla

Febrero / 2023

Docente: Ing. Luisa Angela Zapa Flores

Realizado por: Javier Elohim Burgos Chaguezac

Facultad de Ingeniería - Departamento de Ingeniería Industrial

Preparación del entorno

#install.packages("readr")
library(readr)
#install.packages("rriskDistributions")
library(rriskDistributions)

Nota Si usted descarga el archivo csv use la siguiente linea para leer el archivo

datos_falla <- read.delim("Pegar/aquí/la/ruta/de/su/archivo.csv", header = TRUE, sep = ";")

Lectura de datos

datos_falla <- read.csv("https://raw.githubusercontent.com/JavierBurgos-web/002_Graficas_Confiabilidad_y_Probabilidad_de_falla/main/datos_falla.csv")
attach(datos_falla)

Tiempofalla
6494
8917
9568
…

Ajuste de distribucción

Al ejecutar la siguiente linea se abrira otra pantalla, en la cúal eliguiremos la distribución que más se ajuste a nuestros datos. En este caso se elije Weibull esto imprimira los parametros shape : 3.091754 y scale : 16538.469948 asociados a la distribución elegida, estos se usarán más adelante para graficar las curvas de Cofiabilidad y Probabilidad acumulada de falla.

risk=fit.cont(Tiempofalla)

Definir el plano

hist(Tiempofalla, freq = FALSE, main = "Distribuccion de Weibull", 
     xlab = "Tiempo entre falla", ylab = "Densidad", 
     col = "green", 
     ylim = c(0,1.0))

Curva de probabiliad de falla

curve (pweibull(x, 3.091754, scale = 16538.469948), 
                 add = TRUE, col = "orange")

Curva de confiabilidad

curve(1-pweibull(x, 3.091754, scale = 16538.469948), 
                add = TRUE, col ="blue")

Curva de densidad

curve(dweibull(x, 3.091754, scale = 16538.469948), 
      add = TRUE, col = "red")

Visualización completa

curve (pweibull(x, 3.091754, scale = 16538.469948), 
                 add = TRUE, col = "orange")

curve(1-pweibull(x, 3.091754, scale = 16538.469948), 
                add = TRUE, col ="blue")

curve(dweibull(x, 3.091754, scale = 16538.469948), 
      add = TRUE, col = "red")