19 Folha de verificação

Objetivo

O objetivo desta seção é construir tabelas de freqüências para observações de um processo.

A tabela de freqüências corresponde à folha de verificação do processo ou serviço.

Arquivo de dados

Serão utilizados os dados sobre o tempo de parada em um linha de produção: arquivo.

> linha<-read.table("linha.txt",header=T)
> linha

Estes dados correspondem ao tempo de parada, em minutos, de uma linha de produção. A coluna cod indica qual o tipo de problema ocorrido. Os dados foram obtidos em 4 meses de estudo em diferentes turnos e dias.

Folha de verificação

Nesse caso, um resumo dos dados fornece informações sobre o comportamento das observações realizadas durante o período.

Uma análise das freqüências mensais pode ser obtida da seguinte maneira:

> mes.tab<-table(linha$cod,linha$mes,dnn=c('cod','mes'))
> mes.tab

Esse resultado fornece algumas informações sobre a freqüência de ocorrência dos problemas.

A função apply(), mostras os totais da freqüência de ocorrência de cada tipo de problema ou as freqüências mensais:

> apply(mes.tab,1,sum)
  1   2   5   6   7   8   9  31  32  33  34  35  36  38  41  43  
  7   2   5  71   4  99   2 156   2  38  69 108  16   8  79  16   
 
 44  81  82  84 321 322 421 
  9   4  35   5  2  52  99 

> apply(mes.tab,2,sum)
  2   3   4   5 
165 279 212 232

Observe que alguns códigos 8, 31, 105 e 421, destacam-se dos demais.

Os mesmos resultados podem ser obtidos com o uso da função
margin.table():

> margin.table(mes.tab,1) # freq. de paradas por código
> margin.table(mes.tab,2) # freq. de paradas por mês

ou simplesmente

> table(linha$cod) #conta o num. de paradas por código

Observe que nestas análises, não foi considerado o tempo gasto com cada parada.

Exercícios

1. Algum problema ocorre com maior freqüência em algum turno?
2. Os tempos de parada são semelhantes entre turnos?
3. No arquivo é apresentado um conjunto de dados referentes à ocorrências de acidentes com automóveis na cidade de Curitiba no primeiro semestre de 2000. Explore esse conjunto de dados e tente identificar informações que possam ajudar no controle de acidentes.

   Por exemplo, utilizando a função ftable() pode-se obter uma tabela com três entradas. Pode-se ter o interesse em saber o número de acidentes por bairro, dia da semana e horário.

   > tab.1<-ftable(carros[c("bairro","semana","hora")])
   

   O valor máximo na tabela pode ser encontrado coma função max().

   > max(tab.1)
   

   Como a tabela é extensa, o valor encontrado pode não ser único. Com a função sort() obtém-se os valores de contagens ordenados de forma crescente. Nesse caso, o alor encontrado é único.

   > sort(tab.1)
   

   Observe que em muitos bairros a ocorrência de acidentes é pequena. Para diminuir o banco de dados, pode-se fazer a seleção de bairros com maior ocorrência de acidentes, por exemplo.