# Lista de Verificação
#
# 1 -  Diagrama de Ishikawa
# 2 -  Lista de verificação
#
# Pacotes: qcc, SixSigma, DiagrammeR
#

# Walter Ponge-Ferreira
# São Paulo, 2 de Abril de 2018

library(SixSigma)

setwd("~/Documents/Data/Pasta Técnica/R/PME3463 Aula 03")
rm(list=ls())

# Diagrama de Ishikawa

cManpower <- c("Instalação","Manutenção","Usuário","Limpeza")

cMaterials <- c("Energia elétrica","Lâmpadas","Reatores","Interruptores")

cMachines <- c("Relede Elétrica","Leiaute da Iluninação", "Janelas e iluminação natural")

cMethods <- c("Aulas com lousa","Projeções","Aulas de laboratório","Manuseio dos equipamento")

cMeasurements <- c("Nível de iluminamento", "Consumo de Energia Elétrica", "Relógio", "Calendário", "Bússula", "GPS")

cEnvironment <- c("Localização", "Clima", "Diurno/Noturno", "Estação do Ano")

cGroups <- c("Mão de Obra", "Materiais", "Máquina", "Método", "Metrologia", "Meio Ambiente")

cEffect <- "Iluminação em Sala de Aula"

ss.ceDiag(
  effect = cEffect,
  causes.gr = cGroups,
  causes = list(cManpower, cMaterials, cMachines, cMethods, cMeasurements, cEnvironment),
  main = "Diagrama de Causa-e-Efeito",
  sub = "Iluminação em Sala de Aula")

# Lista de Verificação

data_checkSheet <- rbind(
  data.frame(Group = "Mão de Obra",
             Cause = cManpower),
  data.frame(Group = "Máquinas",
             Cause = cMachines),
  data.frame(Group = "Materiais",
             Cause = cMaterials),
  data.frame(Group = "Métodos",
             Cause = cMethods),
  data.frame(Group = "Metrologia",
             Cause = cMeasurements),
  data.frame(Group = "Meio Ambiente",
             Cause = cEnvironment)
)

data_checkSheet$A_supplier <- NA
data_checkSheet$B_supplier <- NA
data_checkSheet$C_supplier <- NA