[R-es] BUCLE

[David Contreras]

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]]