In pedroliman/oshcba: Biblioteca com Algoritmos para Simulacao Numerica.

knitr::opts_chunk$set(echo = TRUE, warning = FALSE, message = FALSE)
library(oshcba)
library(knitr)

# resultados = simular_cba(ArquivoInputs = inputs, tipo_input = "list", verificar_inputs = TRUE)
# resultados = simular_cba("D:/dev/oshcba/tests/testthat/Dados.xlsx")

Dados Gerais

• Empresa: Nome, Cidade
• Participantes Empresa: Nomes dos Participantes da Empresa
• Participantes SESI: Nomes dos Analistas do Sesi.

A Empresa

A [NOME DA EMPRESA] é uma empresa situada na cidade de [nome da cidade, que se dedica à [nome da atividade]. Parágrafo introdutório a respeito da empresa.

Coleta de Dados da Situação Atual - AS IS

Os dados foram coletados utilizando o template do Excel destinado para tal atividade. A relação das variáveis coletadas/arbitradas estão disponíveis nos apêndices. Os dados que não estavam disponíveis (falta de histórico ou controle ainda não realizado na empresa), foram arbitrados com o apoio do grupo, baseado na experiência dos participantes da empresa.

Iniciativas Avaliadas

Foram avaliadas duas iniciativas durante o piloto de aplicação do protótipo da calculadora. As iniciativas apresentadas pela empresa contemplam:

• Iniciativa 1 - [Nome da Iniciativa]. Esta iniciativa contempla a [descrição da iniciativa].

• Iniciativa 2 - [Nome da Iniciativa]. Esta iniciativa contempla a [descrição da iniciativa].

• Iniciativa 3 - [Nome da Iniciativa]. Esta iniciativa contempla a [descrição da iniciativa].

Para cada iniciativa foram coletados dados referentes aos custos de sua implantação e manutenção, bem como foram estimadas as melhorias que poderão ser obtidas a partir da sua implementação. Estas estimativas foram feitas baseadas na probabilidade de redução dos eventos (afastamentos, óbito), redução de faltas, economias (savings) em produtividade, entre outros.

Resultados

Valores Obtidos por Benefício Avaliado

Nesta seção serão apresentados os valores obtidos para o conjunto de benefícios avaliados. Esta apresentação será feita na seguinte ordem de categorias: i) Reduções Fiscais; ii) Despesas Evitáveis; iii) Melhor uso dos recursos; e, iv) Intangível. A sequência de ordenamento da apresentação de resultados parte das categorias cujo os resultados são objetivos em termos de cálculo para elementos indiretos, finalizando em uma categoria intangível na qual as questões subjetivas são incorporadas ao cálculo.

| Categoria | Cálculo do Benefício | Objetividade | Tangibilidade | |------------|------------------------------------------------------------|-------------|---------------| | Reduções Fiscais | Pode ser calculado a priori tendo por referência valores da legislação. | Objetivo e Direto | Tangível | | Despesas Evitáveis | Pode ser calculado a partir de estimativas da redução de riscos a que organização exposta ou ações que mitiguem os impactos do risco. Pode depender de fatores externos a empresa e as ações de SST e FPS. Os elementos indiretos são estimados pela calculadora a partir da observação dos dados existentes ou de estimativas do analista. | Objetivo e Indireto | Tangível | | Melhor uso dos Recursos | É calculado a partir da composição de elementos objetivo/diretos (turnover e absenteísmo, por exemplo) e objetivos/indiretos (produtividade e qualidade, por exemplo) que são consequência das ações de redução de riscos aos eventos. São colaterais em relação ao objetivo central das ações de SST e FPS. Os elementos indiretos precisam ser calculados externa e indiretamente a calculadora. | Objetivo e Direto/Indireto | Tangível | | Intangível | O cálculo dessa categoria é realizado externamente a calculadora a partir de questões subjetivas que podem afetar o negócio da empresa. Alguns elementos são estimados, mas são baseados em aspectos intangíveis previamente definidos. São benefícios que podem beneficiar a organização como um todo sem uma medida precisamente observável. | Subjetiva e Indireta | Intangível |

Resultados Gerais - Resumo Por Iniciativa

A seguir é apresentado o resultado geral da analise de custos e benefícios por iniciativa. A linha "Média_RBC" representa o valor esperado da razão benefício custo de cada uma das iniciativas. Desta maneira, para cada real investido na iniciativa em questão, espera-se que serão retornados o número de reais indicados nesta variável como benefícios.

resumo_iniciativas = resumo_cba_por_iniciativa(resultados$Resultados_CBR)

knitr::kable(t(resumo_iniciativas), digits = 3, caption = "Estatísticas da Análise de Custo benefício por Iniciativa.")

Os limites superiores e inferiores representam um intervalo de confiança de 95% para o retorno, e a variável "Prob_RCB_Maior1" apresenta a probabilidade do investimento retornar mais benefícios monetários do que o investimento realizado na iniciativa. Em seguida, a tabela apresenta o benefício médio em reais atribuído a iniciativa, bem como o seu respectivo intervalo de confiança. Finalmente, a tabela apresenta o custo total da iniciativa. Todos os custos e benefícios são apresentados em unidades monetárias ajustadas a valor presente, usando a taxa de desconto informada no apêndice.

Reduções Fiscais

• Exposição à Multas: Esta subcategoria compreende a economia de recursos monetários que empresa pode obter ao reduzir os riscos de não atendimento à legislação (NRs) após a implementação integral do projeto/iniciativa.
• FAP: Esta subcategoria compreende a economia de recursos monetários que empresa obtém no RAT Ajustado ao reduzir a quantidade e severidade dos acidentes de trabalho (FAP) após a implementação integral do projeto/iniciativa.

resumo_categorias = resumo_cba_por_categorias(resultados$Resultados_CBR)
beneficios_categorias = resumo_categorias$BeneficoMedioPorCategoria
cbr_categorias = resumo_categorias$RazaoBeneficioCustoPorCategoria

colunas_reducoes_fiscais = c("BeneficioMultas", "BeneficioFAP")

colunas = c(c("Cenario.y"), colunas_reducoes_fiscais)

knitr::kable(t(beneficios_categorias[colunas]), digits = 2, caption = "Benefícios Capturados em Reduções Fiscais.")

Despesas Evitáveis

• Despesas com Reclamatórias Trabalhistas: Esta subcategoria compreende as despesas evitadas com possíveis reclamatórias trabalhistas (objeto da ação relacionadas às doenças ocupacionais e acidentes do trabalho) após a implementação integral do projeto/iniciativa.
• Ações Regressivas INSS: Esta subcategoria compreende as despesas evitadas com ações regressivas do INSS após a implementação integral do projeto/iniciativa.
• Despesas Médicas: Esta subcategoria compreende as despesas evitadas com medicamentos e atendimento médico para tratamento dos acidentes de trabalho após a implementação integral do projeto/iniciativa.
• Reajustes Plano de Saúde: Esta subcategoria compreende as despesas evitadas com planos de saúde via alteração da taxa de sinistralidade após a implementação integral do projeto/iniciativa.
• Interrupção Operacional (Acidente/Morte): Esta subcategoria compreende as despesas evitadas por interrupção, total ou parcial, das operações da empresa devido acidentes de trabalho, óbitos ou interdições após a implementação integral do projeto/iniciativa.
• Interdições por Fiscalização: Esta subcategoria compreende as despesas evitadas por interdição, total ou parcial, das operações da empresa devido a fiscalizações após a implementação integral do projeto/iniciativa.
• Reabilitação do Trabalhador: Esta subcategoria compreende as despesas evitadas com a reabilitação do trabalhador que esteve afastado por doenças ocupacionais ou acidentes após a implementação integral do projeto/iniciativa.
• Seguro Patrimonial: Esta subcategoria compreende os savings que a empresa pode ter no que tange à diminuição das despesas com planos de seguro contra dano material.

colunas_despesas_evitaveis = c("BeneficioAcoesRegressivasINSS",
                               "BeneficioReabilitacao", 
                               "BeneficioPlanodeSaude", 
                               "BeneficioReclamatorias", 
                               "BeneficioDespesasMedicas", 
                               "BeneficioInterrupcaoAcidentes",
                               "BeneficioInterdicaoFiscalizacao",
                               "BeneficioSeguroPatrimonial")

colunas = c(c("Cenario.y"), colunas_despesas_evitaveis)

tabela_imprimir = t(as.matrix((beneficios_categorias[colunas])))

# colnames(tabela_imprimir)[,1] = "Beneficio"

# colnames(tabela_imprimir$Cenario.y) = "Beneficio"

knitr::kable(tabela_imprimir, digits = 2, caption = "Benefícios Capturados em Despesas Evitáveis.")

Melhor Uso dos Recursos

• Turnover: Esta subcategoria compreende a economia gerada pela redução da taxa de rotatividade da mão-de-obra após a implementação do projeto/iniciativa em SST e FPS. As variáveis contempladas referem à redução das despesas de recursos humanos e demais áreas de apoio (estrutura, capacitação novos trabalhadores, mobilização e integração de novos trabalhadores, outros).
• Absenteísmo: Esta subcategoria compreende a economia gerada pela redução da taxa de absenteísmo da mão-de-obra após a implementação do projeto/iniciativa em SST e FPS. As variáveis contempladas referem à redução das despesas com tempo de realocação de trabalhadores, horas extras necessárias para suprir as carências de mão-de-obra nas operações, entre outras.
• Presenteísmo: Esta subcategoria compreende a economia pela redução da taxa de presenteísmo da mão-de-obra após a implementação do projeto/iniciativa em SST e FPS. É uma dimensão intermediária que impacta na produtividade da empresa.
• Produtividade: Esta subcategoria compreende os ganhos obtidos pela elevação da produtividade da mão-de-obra devido ao ambiente seguro e saudável. A produtividade pode ser medida em FTE (Full-Time Equivalent) ou volume de produção horária.
• Qualidade: Esta subcategoria compreende os ganhos obtidos com elevação da qualidade dos produtos e serviços devido a melhora do ambiente seguro e saudável. O ganho de qualidade do produto pode resultar em ganho de Market-share e/ou aumento do preço de venda.
• Refugo/Retrabalho: Esta subcategoria compreende a economia gerada pela redução do volume de refugos/retrabalhos gerados nas operações após a implementação do projeto/iniciativa em SST e FPS.
• MP, insumos, equipamentos da operação: Esta subcategoria compreende a economia gerada pela redução do volume manutenção corretiva (mão-de-obra e materiais) e substituição de máquinas e ferramentas após a implementação da iniciativa em SST e FPS.

colunas_despesas_evitaveis = c("BeneficioTurnover",
                               "BeneficioAbsenteismo", 
                               "BeneficioPresenteismo", 
                               "BeneficioGanhoProdutividade", 
                               "BeneficioGanhoQualidade", 
                               "BeneficioRefugoERetrabalho",
                               "BeneficioMPInsumos")

colunas = c(c("Cenario.y"), colunas_despesas_evitaveis)

knitr::kable(t(beneficios_categorias[colunas]), digits = 2, caption = "Benefícios Capturados em Melhor Uso dos Recursos.")

Benefícios Intangíveis

• Imagem da Empresa: Esta subcategoria compreende os ganhos que a empresa pode obter com elevação da sua imagem devido à boas práticas de segurança e de evidenciação de aspectos que evidenciem a busca pelo aumento da qualidade de vida dos seus trabalhadores (e.g. facilidade no processo de atração e retenção de talentos) após a implementação integral do projeto/iniciativa.
• Engajamento e Clima organizacional: Esta subcategoria compreende os ganhos devido ao engajamento dos trabalhadores e elevação do clima organizacional devido ao ambiente saudável e seguro. É uma dimensão intermediária que impacta na produtividade da empresa.

colunas_beneficios_intangiveis = c("BeneficioImagemContratacao",
                               "BeneficioGanhoImagemReceita", 
                               "BeneficioClima")

colunas = c(c("Cenario.y"), colunas_beneficios_intangiveis)

knitr::kable(t(beneficios_categorias[colunas]), digits = 2, caption = "Benefícios Intangíveis.")

Gráficos por Iniciativa

Os gráficos que serão expostos a seguir apresentam como cada dimensão contribui para a geração da razão benefício-custo total. A partir destes, é possível visualizar a importância relativa de cada umas das categorias na Razão Benefício-Custo apresentado para cada iniciativa. Tons de azul mais escuros representam categorias de benefícios mais firmes, enquanto categorias com tons menos

iniciativas = as.vector(resultados$Inputs$Cenarios$Cenario[which(resultados$Inputs$Cenarios$Simular & !resultados$Inputs$Cenarios$CenarioASIS)])
for (i in iniciativas) {
  cat('\n')
  print(grafico_dbg_cbr_waterfall(resumo_categorias, iniciativa = i))
  cat('\n')
}

Variabilidade da Razão Benefício-Custo das Iniciativas

O gráfico a seguir apresenta uma síntese da variabilidade da razão benefício custo de cada uma das iniciativas. Os elementos dos gráficos tem os seguintes significados:

• Quartil 1 (Q1) (limite inferior do retângulo): Valor da razão benefício custo que é maior do que 25 % dos casos simulados.

• Mediana (linha horizontal dentro do retângulo): Valor da razão benefício custo que é maior do que 50 % dos casos simulados.

• Quartil 3 (limite superior do retângulo) (Q3): Valor da razão benefício custo que é maior do que 75 % dos casos simulados.

• Ponta superior da linha vertical: Extende-se ao valor de $Q3+1.5*(Q3 -Q1)$. Representa observações da razão benefício-custo não consideradas como outliers.

• Ponta inferior da linha vertical: Extende-se ao valor de $Q1-1.5*(Q3-Q1)$. Representa observações da razão benefício-custo não consideradas como outliers.

• Pontos identificados individualmente: Casos simulados considerados como outliers. São considerados outliers pontos que estejam acima ou abaixo das seguintes fórmulas: $x< Q1-1.5(Q3-Q1) \ ; x > Q3+1.5(Q3 -Q1)$

grafico_box_plot_por_iniciativa(resultados$Resultados_CBR)

Apêndice - Registros para a Reprodutibilidade dos Cálculos

Logs

A seguir são apresentados os logs de execução gerados pela calculadora.

knitr::kable(oshcba.obter_log(), caption = "Logs de Execução da Calculadora.")

Dados de Entrada

• Configurações

knitr::kable(resultados$Inputs$Configs, caption = "Configurações.")

• Dados Projetados

knitr::kable(resultados$Inputs$DadosProjetados, caption = "Dados Projetados para as Simulações")

• Constantes

knitr::kable(resultados$Inputs$Constantes, digits = 2, caption= "Variaveis Constantes.")

• Parâmetros

variaveis = c("NomeVariavel", "Distribuicao", "Parametro1", "Parametro2", "Parametro3", "Parametro4", "Cenario")
parametros = resultados$Inputs$Parametros[variaveis]
cenarios = as.vector(unique(parametros$Cenario))
colnames(parametros) = c("Variavel", "Distrib.", "P1", "P2", "P3", "P4", "Inic.")
#knitr::kable(parametros, digits = 3)

for (c in cenarios) {
  print(kable(parametros[which(parametros$Inic. == c), 1:6],digits = 3, caption = paste("Parametros - ", c)))
}


#kable(parametros, format = "latex", booktabs = T)  %>% kable_styling(font_size = 7)
#knitr::kable(parametros, "latex", booktabs = T) %>% 

• Iniciativas

knitr::kable(resultados$Inputs$Cenarios, caption = "Iniciativas Simuladas")

• Custos

knitr::kable(resultados$Inputs$Custos, caption = "Custos das Iniciativas")

• Módulos Selecionados

knitr::kable(resultados$Inputs$Modulos, caption = "Módulos Selecionados")

• Histórico FAP

knitr::kable(t(resultados$Inputs$HistoricoFAP), caption = "Dados dos dois últios anos de Histórico do FAP considerado.")

pedroliman/oshcba documentation built on May 24, 2019, 6:15 a.m.