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)
dataAbraço, Adriano S. Melo Em 10 de novembro de 2012 13:16, Daniel Marcelino <[email protected]>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 > [email protected] > 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 [email protected] 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.
