[R-br] quebrar amostra através de sorteio aleatório sem reposição

[Jodavid Ferreira]

Fucioncou perfeitamente, Obg!


Em 13 de fevereiro de 2014 00:47, Jodavid Ferreira
<jodavid.arts em gmail.com>escreveu:

> o exercicio e' verificar o pq isso funciona...
>
> set.seed(1)
> amostra <- rpois(100,lambda=2.5)
> grps <- unlist(mapply(rep, 1:3, c(25, 40, 35)))
> sets <- split(amostra, sample(grps))
>
> b
>
>
> Em 13 de fevereiro de 2014 00:47, Jodavid Ferreira <[hidden email]<http://r-br.2285057.n4.nabble.com/user/SendEmail.jtp?type=node&node=4661567&i=0>
> > escreveu:
>
>> Olá pessoal,estou com dúvida na hora de realizar este problema,
>>
>> O problema é:
>>
>> Gero uma amostra de tamanho 100 por exemplo com dist. poisson
>>
>> amostra<-rpois(100,lambda=2.5)
>> amostra
>>
>>  [1] 1 4 8 0 2 4 2 1 2 2 6 3 3 0 2 2 1 1 1 2 1 2 4 2 2 2 1 0 4 6 5 2 1 2
>> 2 3 3 1 2
>>  [40] 0 3 5 5 5 2 2 2 5 3 2 2 3 3 2 2 2 3 3 0 2 2 1 2 1 1 4 2 0 3 4 2 2 3
>> 4 4 2 4 1
>>  [79] 2 2 1 0 2 1 4 3 2 2 0 3 3 1 3 3 2 3 3 1 5 0
>>
>> agora com esses valores quero podemos dizer que quebrar em três amostas,
>> a primeira de tamanho 25, a segunda, 40, e a terceira 35. Só que o problema
>> é que tenho que sortear valores para a primeira amostra e estes valores tem
>> que sair da amostra original.
>>
>> ou seja, quando sortear para a primeira amostra, chamar amostra1, só deve
>> restar 75 valores para que eu possa dividir e mais duas.
>>
>> Estava pensando em utilizar o sample, para sortear os valores e alocar a
>> cada amostra, mas como faço para remover os valores entre uma amostra e
>> outra?
>>
>> --
>> Jodavid Ferreira
>> Responsável pela comissão de Comunicação do MJ da RCCPB -
>> http://rccpbjovem.com
>> Membro da equipe Estadual do Ministério de Comunicação da RCCPB -
>> http://rccpb.com.br
>> Responsável pelo Ministério de Comunicação do Grupo de Oração Boa
>> Esperança - http://grupoboaesperanca.com
>> Bacharelando em Estatística - UFPB
>> Estagiário no Laboratório de Estatística Aplicada ao Processamento de
>> Imagens e Geoprocessamento - http://de.ufpb.br/~leapig
>> Site Pessoal - http://jodavidferreira.com
>> Twitter - @JodavidFerreira <http://twitter.com/JodavidFerreira>
>>
>> _______________________________________________
>> R-br mailing list
>> [hidden email]<http://r-br.2285057.n4.nabble.com/user/SendEmail.jtp?type=node&node=4661567&i=1>
>> 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
> [hidden email]<http://r-br.2285057.n4.nabble.com/user/SendEmail.jtp?type=node&node=4661567&i=2>
>
> 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.
>



-- 
Jodavid Ferreira
Responsável pela comissão de Comunicação do MJ da RCCPB -
http://rccpbjovem.com
Membro da equipe Estadual do Ministério de Comunicação da RCCPB -
http://rccpb.com.br
Responsável pelo Ministério de Comunicação do Grupo de Oração Boa Esperança
- http://grupoboaesperanca.com
Bacharelando em Estatística - UFPB
Estagiário no Laboratório de Estatística Aplicada ao Processamento de
Imagens e Geoprocessamento - http://de.ufpb.br/~leapig
Site Pessoal - http://jodavidferreira.com
Twitter - @JodavidFerreira <http://twitter.com/JodavidFerreira>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20140213/6db47ab2/attachment.html>