Boa Tarde

Prezado Max 

Deu certo, muito obrigado! Só não consigo gerar a planilha dos resultados do modelo calculado, segue a mensagem de erro:

>write.xlsx(planilha, file = "resultscrs.xlsx") #grava arquivo
Error in zip_internal(zipfile, files, recurse, compression_level, append = FALSE,  :
  zip error: `Cannot add file `[Content_Types].xml` to archive `filed781d2c370e.xlsx`` in file `zip.c:394`
> 


Atenciosamente

Em sáb., 4 de abr. de 2020 às 11:30, Max Richard Verginio por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
Bom dia Márcio Boareto,

Seu código funcionará, se alterar a linha:

rownames(planilha) <- dados [,1] # nomeas das linhas (empresas)

#por

rownames(planilha) <- dados[[1]] # nomeas das linhas (empresas)

###
O diferença está na library usada para leitura da planilha dados.xlsx.
Foram carregadas três `xlsx`, `openxlsx`e `readxl`. Mas foi utilizada apenas esta última, que carrega como tibble.

dados <- readxl::read_excel(path = "dados.xlsx", col_names = T)


Atenciosamente,
Max Richard Verginio


_____________________________________
Sent from http://r-br.2285057.n4.nabble.com

_______________________________________________
R-br mailing list
R-br@listas.c3sl.ufpr.br
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código mínimo reproduzível.


--
Márcio Boareto
Administrador
CRA-GO 15993
Mestre em Gestão Organizacional pela UFG Catalão.
Especialista em Gestão Financeira e Controladoria - UFG Catalão
Graduado em Administração de Empresas - UFG Catalão
64 98137-9049 whatsapp