Buen día, De antemano gracias por la respuesta tan oportuna, anoche después de muchas pruebas lo logré, dejo el código por si otra persona se enfrenta al mismo inconveniente:
a<-1 while (a<=nf){ data [a,]<-sample(MuestraS,replace=T) if (a>1){ if (sum(duplicated(data[1:a, ]))!=0){a<-a} else {a<-a+1} }else {a<-a+1} } Saludos, David C. El 25 de marzo de 2015, 6:42, Reverté Calvet, Gerard <greve...@ajmataro.cat> escribió: > Hola David, prueba con esto: > > a<-1 > for (a in 1:30) { > b<-0 > while(b>0){b<-sum(duplicated(data[1:a,]));data > [a,]<-sample(MuestraS,replace=T)} > } > > > Gerard Reverté > > > > > -----Missatge original----- > De: R-help-es [mailto:r-help-es-boun...@r-project.org > <r-help-es-boun...@r-project.org>] En nom de David Contreras > Enviat: dimecres, 25 / març / 2015 06:23 > Per a: r-help-es > Tema: [R-es] BUCLE > > > Buena noche a todos, > > Nuevamente requiero de su ayuda con algo puntual: > > 1. Tengo en el vector Muestras: > > rm(list = ls()) > set.seed(2085089)# Fija Datos > > data<-matrix(-1,30,ncol=10) > > > MuestraS > [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10] > [1,] 1 0 0 0 1 1 0 1 1 1 > > Ahora, dentro de un bucle for voy a generar muestras aleatorias, pero > requiero que en ese mismo proceso, apenas se tenga una muestra duplicada > esta se sobrescriba, no he logrado que el bucle se quede en una posición y > de esta manera generar una nueva muestra que no este duplicada. > Para hace lo descrito en el parrafo anterior uso el siguiente código: > > a<-1 > for (a in 1:30) { > data [a,]<-sample(MuestraS,replace=T) > if (sum(duplicated(data[1:a, ]))!=0){a<-a} > else {a<-a+1} > } > > No esta haciendo lo que requiero, se detecta el duplicado pero la muestra > se generar y continua hasta llegar a 30 dejando el duplicado. > No se si deba usar el bucle for o deberia cambiar por un while, pero no lo > he podido lograr de ninguna de las dos formas. > > Un saludo, agradezco su colaboración con el tema. > > > David C. > > [[alternative HTML version deleted]] > > _______________________________________________ > R-help-es mailing list > R-help-es@r-project.org > https://stat.ethz.ch/mailman/listinfo/r-help-es > > > > *Avís legal/Aviso legal* > La present informació s'envia únicament a la persona a la que va dirigida > i pot contenir informació privilegiada o de caràcter confidencial. > Qualsevol modificació, retransmissió, difusió o altre ús d'aquesta > informació per persones o entitats diferents a la persona a la que va > dirigida està prohibida. Si vostè l'ha rebut per error, si us plau contacti > amb el remitent i esborri el missatge de qualsevol ordinador. En el cas que > aquest missatge vagi a ser contestat per la mateixa via, ha de saber-se que > la seva resposta podria ser coneguda per tercers a l'entrar a la xarxa. Per > això, si el missatge inclou contrasenyes, números de targetes de crèdit o > qualsevol altra informació que vostè consideri confidencial, seria més > segur contestar per una altra via i cancel·lar la seva transmissió. > L'Ajuntament de Mataró i els seus organismes dependents no poden assumir la > responsabilitat derivada del fet de què terceres persones puguin arribar a > conèixer el contingut d'aquest missatge durant la seva transmissió. > ------------------------------ > La presente información se envía únicamente a la persona a la que va > dirigida y puede contener información privilegiada o de carácter > confidencial. Cualquier modificación, retransmisión, difusión u otro uso de > esta información por persones o entidades diferentes a la persona a la que > va dirigida está prohibida. Si usted la ha recibido por error, por favor > contacte con el remitente y borre el mensaje. En el caso de que este > mensaje vaya a ser contestado por la misma vía, ha de saberse que su > respuesta podría ser conocida por terceros al entrar en la red. Por este > motivo, si el mensaje incluye contraseñas, números de tarjetas de crédito o > cualquier otra información que considere confidencial, sería más seguro > contestar por otra vía y cancelar su transmisión. El Ayuntamiento de Mataró > y sus organismos dependientes no pueden asumir la responsabilidad derivada > del hecho de que terceras personas puedan llegar a conocer el contenido de > este mensaje durante su transmisión. > > <#14c50bdc0d0f9412_> > [[alternative HTML version deleted]] _______________________________________________ R-help-es mailing list R-help-es@r-project.org https://stat.ethz.ch/mailman/listinfo/r-help-es