Cartas de Controle

Olá, pessoal; Tudo bem?
Preciso de algumas dicas…

  • Estou utilizando o pacote QCC ((install.packages(“qcc”,dependencies = TRUE)) para elaborar Cartas de Controle.

  • A base de dados que estou utilizando é uma base de dados que registra o consumo de energia a cada 14 minutos. A tabela apresenta as seguintes colunas: TYPE - DATE - START TIME - END TIME - USAGE - UNITS - COST - NOTES.
    Type (Tipo), Date (Data), Start Time (Hora Inicial), End Time (Hora Final), Usage (Consumo), Units (Unidade), Cost (Custo) e Notes (Notas).

  • Preciso elaborar Cartas de Controle dos registros de consumo (Usage) que são maiores que a média, porém não consegui elaborar esse script.

Abaixo, os scripts que consegui elaborar:

##GRAFICO XBAR##
qcc(tabela, type="xbar")
xbar.plot=qcc(tabela, type="xbar", nsigmas=3)

##GRAFICO R##
xbar.plot=qcc(data, type="R")

##CAPABILIDADE DO PROCESSO##
process.capability(object = xbar.plot, spec.limits=c(0.01, 1.00))

## Carta XBAR - medidas individuais ##
plot.ind = qcc(tabela$USAGE, type="xbar.one")

##GRAFICO CUSUM##
k=cusum(tabela, decision.interval = 5, std.dev = 1, limits=c(-5,5), center=10, digits=3)

##GRAFICO EWMA##
k=ewma(tabela, center=10, std.dev=1, lambda = 0.1, nsigmas = 2.7, plot = TRUE)

Alguém poderia dar um help?