Código em R

Programação em Linguagem R para Engenharia de Produção 3º Desafio em R A base de dados BASEDEAcsv contém as informações de insumo PMSO e produtos ExtRedeMenor230 ExtRedeMaior230 MVA Mvar EqpMenor230 EqpMaior230 ManobraMenor230 e ManobraMaior230 utilizados no modelo de Benchmarking proposto pela ANEEL Agência Nacional de Energia Elétrica na Consulta Pública 0312023 para o cálculo dos escores de eficiência das empresas transmissoras de energia elétrica O seguinte modelo de programação linear foi aplicado a Utilizando o pacote lpSolve faça a implementação do modelo mostrado acima Considere o seguinte vetor de coeficientes parâmetros 𝑢 𝑣𝑟𝑒𝑑𝑒230 𝑣𝑟𝑒𝑑𝑒230 𝑣𝑚𝑣𝑎 𝑣𝑚𝑣𝑎𝑟 𝑣𝑒𝑞𝑢𝑖𝑝230 𝑣𝑒𝑞𝑢𝑖𝑝230 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 𝜑 b Para o modelo de programação linear mostrado acima ainda são acrescentadas as seguintes restrições 192849 𝑣𝑟𝑒𝑑𝑒230 𝑢𝑝𝑚𝑠𝑜 8913589 095112 𝑣𝑟𝑒𝑑𝑒230 𝑢𝑝𝑚𝑠𝑜 1958637 022649 𝑣𝑚𝑣𝑎 𝑢𝑝𝑚𝑠𝑜 737945 171776 𝑣𝑚𝑣𝑎𝑟 𝑢𝑝𝑚𝑠𝑜 2225033 4222925 𝑣𝑒𝑞𝑢𝑖𝑝230 𝑢𝑝𝑚𝑠𝑜 108905466 2334634 𝑣𝑒𝑞𝑢𝑖𝑝230 𝑢𝑝𝑚𝑠𝑜 73109896 1487043 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 𝑢𝑝𝑚𝑠𝑜 30879817 2670795 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 𝑢𝑝𝑚𝑠𝑜 63371330 01 𝑣𝑟𝑒𝑑𝑒230 𝑣𝑟𝑒𝑑𝑒230 15 01 𝑣𝑒𝑞𝑢𝑖𝑝230 𝑣𝑒𝑞𝑢𝑖𝑝230 15 01 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 𝑣𝑚𝑎𝑛𝑜𝑏𝑟𝑎230 15 Programação em Linguagem R para Engenharia de Produção A tabela a seguir mostra os resultados do ajuste do modelo sem e com as restrições mostradas anteriormente Concessionaria Ano DEASemRestr DEAComRestr CEEET 2021 09744 09631 CELG GT 2021 06851 06474 CEMIGGT 2021 10000 10000 CGT 2021 06807 06414 CHESF 2021 05866 05727 ELETRONORTE 2021 06482 06004 FURNAS 2021 10000 10000 CELEOHOL 2021 10000 10000 COPELHOL 2021 10000 08770 ISAHOL 2021 10000 10000 STATE GRIDHOL 2021 08699 08597 TAESAHOL 2021 07796 07434 Defina duas funções modeloANEELSRdados e modeloANEELCP23dados que calcule o modelo proposto pela ANEEL com e sem as restrições As funções devem retornar as eficiências para cada uma das empresas presentes na base de dados Utilizando o Rmarkdown gere um arquivo pdf com os resultados e submeta para avaliação no minhaufmgbr