[R-br] set.seed

Daniel Marcelino dmarcelino em live.com
Quarta Maio 1 22:10:33 BRT 2013


Valeu Gledson, a solução eu sabia. Eu estou procurando mais informações
sobre como descobrir o padrão da semente para que isso aconteça, como nos
dois últimos exemplos que eu enviei.

Daniel



2013/5/1 gledson picharski <gledson.picharski em gmail.com>

> sorteia sem reposição um conjunto que tenha 25 zeros e 25 uns.
>
> ## solução 1
> set.seed(111)
> sample(rep(c(0,1),25))
>
> ## solução 2
> set.seed(111)
> rep(c(0,1),25)[sample(1:50)]
>
>
> _________________
> Gledson Picharski
>
>
>
>
>
> Em 1 de maio de 2013 19:48, Daniel Marcelino <dmarcelino em live.com>escreveu:
>
>> Caros, estou realizando um experimento e acabei constatando que a semente
>> que eu distribuir é fundamental para eu obter as amostras binárias.
>> Eu estou interessado em distribuir 25 unidades para tratamento e o
>> restante para controle. Há alguma maneira de saber, sem ser por tentativa e
>> erro, que minha distribuição terá 25 unidades em cada categoria?
>>  Por exemplo,
>>
>> > # 50 Bernoulli trials
>> > set.seed(51)
>> > T <- sample(c(0,1), 50, replace=TRUE, prob=c(25/50, 25/50))
>> > table(T)
>> T
>>  0  1
>> 22 28
>>
>> > set.seed(12345)
>> > T <- sample(c(0,1), 50, replace=TRUE, prob=c(25/50, 25/50))
>> > table(T)
>> T
>>  0  1
>> 23 27
>>
>> > set.seed(123)
>> > T <- sample(c(0,1), 50, replace=TRUE, prob=c(25/50, 25/50))
>> > table(T)
>> T
>>  0  1
>> 25 25
>>
>> > set.seed(2)
>> > T <- sample(c(0,1), 50, replace=TRUE, prob=c(25/50, 25/50))
>> > table(T)
>> T
>>  0  1
>> 25 25
>>
>>
>> --
>> \begin{signature}
>> Daniel Marcelino
>>dm.silva em umontreal.ca
>> ☎ (514) 343 6111 #3799
>> Skype: d.marcelino
>> ✎ 3200 Jean Brillant,  Office C5071
>> Montreal, QC; H3T 1N8
>> Canada
>> \end{signature}
>>
>> "Small steps toward a much better world"
>>
>> _______________________________________________
>> 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.
>



-- 
\begin{signature}
Daniel Marcelino
☁ dm.silva em umontreal.ca
☎ (514) 343 6111 #3799
Skype: d.marcelino
✎ 3200 Jean Brillant,  Office C5071
Montreal, QC; H3T 1N8
Canada
\end{signature}

"Small steps toward a much better world"
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20130501/ea47d660/attachment.html>


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