[R-br] Simular números

Angélica Ricarte angelica.ricarte em hotmail.com
Ter Mar 12 13:48:58 -03 2019


Obrigada, Fernando!


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<http://lattes.cnpq.br/0601801978475226>

<http://lattes.cnpq.br/0601801978475226>

________________________________
De: R-br <r-br-bounces em listas.c3sl.ufpr.br> em nome de Fernando H Toledo por (R-br) <r-br em listas.c3sl.ufpr.br>
Enviado: terça-feira, 12 de março de 2019 14:19
Para: r-br em listas.c3sl.ufpr.br
Cc: Fernando H Toledo
Assunto: Re: [R-br] Simular números

Veja sobre a distribuição multinomial!

 > rmultinom(n = 2, size = 100, prob = rep(1/4, 4))

Esse exemplo simula duas amostras que somam 100... varie as probabilidades!

att,
FH

On 3/12/19 7:54 AM, Rodrigo Ângelo por (R-br) wrote:
> 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 em 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 <http://lattes.cnpq.br/0601801978475226>
>>
>> <http://lattes.cnpq.br/0601801978475226>
>> _______________________________________________
>> R-br mailing list
>> R-br em 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.
>
>
> _______________________________________________
> R-br mailing list
> R-br em 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.
>
_______________________________________________
R-br mailing list
R-br em 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 fornea cdigo mnimo reproduzvel.
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20190312/704567f8/attachment.html>


Mais detalhes sobre a lista de discussão R-br