[R-br] sample condicional

[Adriano S. Melo]

Daniel,
Veja se é isto (deve haver forma mais curta, mas...)
data<-data.frame()
for(i in 1:100){
data<-rbind(data, sample(1:10,5,replace =F))
}
data[,1]<-as.factor(data[,1])
data[,2]<-as.factor(data[,2])
data[,3]<-as.factor(data[,3])
data[,4]<-as.factor(data[,4])
data[,5]<-as.factor(data[,5])
id<-as.factor(1:100)
data<-cbind(id, data)
data

Abraço,
Adriano S. Melo


Em 10 de novembro de 2012 13:16, Daniel Marcelino
<dmsilva.br em gmail.com>escreveu:

> Bom dia,
> Alguém conhece uma maneira de viesar a função sample? Talvez a palavra
> correta seria 'condicionar' as amostras seguintes com base nas
> amostras anteriores. Eu gostaria de gerar varias distribuições
> categoricas mas não quero que o mesmo nível  do fator se repita na
> linha.
>
>
> set.seed(51)
>  data <- data.frame(
>      id=as.factor(1:100),
>      a=as.factor(sample(1:10, size=100, replace=TRUE)),
>      b=as.factor(sample(1:10, size=100, replace=TRUE)),
>      c=as.factor(sample(1:10, size=100, replace=TRUE)),
>      d=as.factor(sample(1:10, size=100, replace=TRUE)),
>      e=as.factor(sample(1:10, size=100, replace=TRUE))
> )
>
>
> --
> "Small steps toward a much better world"
>
> Daniel Marcelino
> Land Phone 1+514 343 6111 #3799
> 3200 Jean Brillant,  Office C5071
> Montreal, QC; H3T 1N8
> Canada
> _______________________________________________
> 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.
>
-------------- Próxima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://listas.inf.ufpr.br/pipermail/r-br/attachments/20121111/993b7335/attachment.html>