Controle

QUESTÃO 5

set.seed(843)
x <- rnorm(160, mean = 120, sd = 9)
library(qcc)

## Warning: package 'qcc' was built under R version 4.3.2

## Package 'qcc' version 2.7

## Type 'citation("qcc")' for citing this R package in publications.

library(tinytex)

## Warning: package 'tinytex' was built under R version 4.3.2

Defina as amostras das Fases 1 e 2

amostras_fase1 <- matrix(x[1:80], ncol = 4, byrow = TRUE)
amostras_fase2 <- matrix(x[81:160], ncol = 4, byrow = TRUE)

Crie os gráficos de controle R, S e X-barra

New data representa a fase 2

qcc_obj_R <- qcc(amostras_fase1, newdata = amostras_fase2, type = "R")

qcc_obj_S <- qcc(amostras_fase1, newdata = amostras_fase2, type = "S")

qcc_obj_Xbar <- qcc(amostras_fase1, newdata = amostras_fase2,type = "xbar")

Fase 1: Teoricamente podemos dizer que os gráficos estão sob controle, porém percebemos certa instabilidade o que pode indicar que os limites superior e inferior não estão adequados para a análise, ao removermos as observações que estão próximas aos limites percebemos que o processo se estabiliza.

Fase 2: Está sob controle

QUESTÃO 6

Defina as amostras da Fase 1

amostras_fase1b <- matrix(x[1:80], ncol = 10, byrow = TRUE)
amostras_fase2b <- matrix(x[81:160], ncol = 10, byrow = TRUE)

Crie os gráficos de controle R, S e X-barra

qcc_obj_R <- qcc(amostras_fase1b, newdata = amostras_fase2b, type = "R")

qcc_obj_S <- qcc(amostras_fase1b, newdata = amostras_fase2b, type = "S")

qcc_obj_Xbar <- qcc(amostras_fase1b, newdata = amostras_fase2b, type = "xbar")

Podemos perceber pontos consecutivos em todos os gráfico, porém no S e no R os pontos estão bem próximos à média, no xbar os valores estão um pouco mais distantes, entretanto podemos perceber observando a fase 2 que a um alinhamento dos pontos indicando que essa pequena disrupção não foi suficiente para descontrolar o processo.

QUESTÃO 7

dados <- rnorm(160, mean = 120, sd = 9)
dados_aumentado <- rnorm(160, mean = 120, sd = 10.8)
dados_diminuido <- rnorm(160, mean = 120, sd = 7.2)

Defina as amostras da Fase 2

amostras_fase2_7 <- matrix(dados[81:160], ncol = 10, byrow = TRUE)
amostras_fase2_7_aumentado <- matrix(dados_aumentado[81:160], ncol = 10, byrow = TRUE)
amostras_fase2_7_diminuido <- matrix(dados_diminuido[81:160], ncol = 10, byrow = TRUE)

Crie os gráficos de controle R, S e X-barra

qcc_obj_Xbar <- qcc(amostras_fase2_7, type = "xbar")

qcc_obj_Xbar <- qcc(amostras_fase2_7_aumentado, type = "xbar")

qcc_obj_Xbar <- qcc(amostras_fase2_7_diminuido, type = "xbar")

Aumentando o desvio padrão houve um afastamento dos pontos em relação a média, já diminuindo o desvio padrão houve uma aproximação dos ponto em relação a média.