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

<div>data[,2]<-as.factor(data[,2])</div><div>data[,3]<-as.factor(data[,3])</div><div>data[,4]<-as.factor(data[,4])</div><div>data[,5]<-as.factor(data[,5])</div><div>id<-as.factor(1:100)</div><div>data<-cbind(id, data)</div>

<div>data</div></div><div><br></div><div>Abraço,</div><div>Adriano S. Melo</div><div><br><br><div class="gmail_quote">Em 10 de novembro de 2012 13:16, Daniel Marcelino <span dir="ltr"><<a href="mailto:dmsilva.br@gmail.com" target="_blank">dmsilva.br@gmail.com</a>></span> escreveu:<br>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Bom dia,<br>
Alguém conhece uma maneira de viesar a função sample? Talvez a palavra<br>
correta seria 'condicionar' as amostras seguintes com base nas<br>
amostras anteriores. Eu gostaria de gerar varias distribuições<br>
categoricas mas não quero que o mesmo nível  do fator se repita na<br>
linha.<br>
<br>
<br>
set.seed(51)<br>
 data <- data.frame(<br>
     id=as.factor(1:100),<br>
     a=as.factor(sample(1:10, size=100, replace=TRUE)),<br>
     b=as.factor(sample(1:10, size=100, replace=TRUE)),<br>
     c=as.factor(sample(1:10, size=100, replace=TRUE)),<br>
     d=as.factor(sample(1:10, size=100, replace=TRUE)),<br>
     e=as.factor(sample(1:10, size=100, replace=TRUE))<br>
)<br>
<br>
<br>
--<br>
"Small steps toward a much better world"<br>
<br>
Daniel Marcelino<br>
Land Phone 1+514 343 6111 #3799<br>
3200 Jean Brillant,  Office C5071<br>
Montreal, QC; H3T 1N8<br>
Canada<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div>