Olá, Angélica

Você tem mais alguma restrição sobre esses números? O código abaixo gera 4 números que somam 100 segundo uma distribuição uniforme.

qtd_observacoes <- 10

qtd_numeros <- 4

df <- data.frame(col1=double(qtd_observacoes),
                 col2=double(qtd_observacoes),
                 col3=double(qtd_observacoes),
                 col4=double(qtd_observacoes))

for (i in 1:qtd_observacoes) {
  soma = 0;
 
  for(j in 1:(qtd_numeros-1)) {
    valor = runif(1, 0, (100-soma))
    df[i,j] <- valor
    soma = soma + valor
  }
  df[i,qtd_numeros] <- 100 - soma
}


Atenciosamente,
Rodrigo de Castro Ângelo


Em ter, 12 de mar de 2019 às 10:33, Angélica Ricarte por (R-br) <r-br@listas.c3sl.ufpr.br> escreveu:
Prezados, bom dia.

Por gentileza, peço ajuda para simular 4 números de forma que a soma dê 100, como na tabela abaixo, por exemplo. Qual o comando e/ou pacote posso utilizar?

             Comun.         Execul.        Planej.      Analis.       TOTAL
A1          21,26             20,45          28,74         29,55          100
A2
A3
A4
A5
A6
A7
A8
A9
A10

Grata, aguardo retorno.

Att.

Angélica Ricarte da Silva Batista

Autarquia Educacional do Belo Jardim/Faculdade do Belo Jardim - AEB/FBJ
Rodovia PE-166, Km 05 - BR, Belo Jardim - PE
Telefone/Phone: +55 (81) 3726-1800

CV

_______________________________________________
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.