[R-es] PERMUTACIONES EN R

[Carlos Ortega]

Hola David,

¿Seguro que buscas las combinaciones?

Creo que lo que buscas es esto...

#----------------
MuestraS <- c(1 ,1, 1, 1, 0, 1, 1, 0, 1, 1)
library(combinat)
resPer <- permn(MuestraS)

matresPer <- matrix(unlist(resPer), nrow=factorial(length(MuestraS)),
ncol=length(MuestraS))
head(matresPer)
#----------------

Que produce esto:

> matresPer <- matrix(unlist(resPer), nrow=factorial(length(MuestraS)),
ncol=length(MuestraS))
> head(matresPer)
     [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
[1,]    1    1    0    1    1    1    1    0    1     1
[2,]    1    1    1    0    1    1    1    1    0     1
[3,]    1    0    1    1    1    1    0    1    1     1
[4,]    1    1    1    1    0    1    1    1    1     0
[5,]    0    1    1    1    1    0    1    1    1     1
[6,]    1    1    1    1    1    1    1    1    1     1

Cuidado que el objeto "resPer" es una lista de 3628800 elementos... 609.1Mb
que como matriz sólo ocupa 276.9Mb.

Saludos,
Carlos Ortega
www.qualityexcellence.es

El 2 de marzo de 2015, 22:51, David Contreras <davidcontreras00 en gmail.com>
escribió:

> Buena tarde amigos,
>
> En días pasados hice algunas consultas y ya pude salir de las dudas que
> tenia en ese momento, ahora requiero de su colaboración con lo siguiente:
>
> Tengo un vector dicotomico (Binario) con la siguiente información que me
> surgio de algunos procesos anteriores:
>
> > MuestraS
>  [1] 1 1 1 1 0 1 1 0 1 1
>
> Ahora necesito hallar todas las posibles combinaciones que se puedan hacer
> con estos elementos para luego hacer un muestro aleatorio  simple con
> reemplazo y seleccionar algunas de las posibles muestras que se obtengan.
>
> Agradezco me puedan ayudar con este asunto
>
> Saludos,
>
> DC.
>
>         [[alternative HTML version deleted]]
>
> _______________________________________________
> R-help-es mailing list
> R-help-es en r-project.org
> https://stat.ethz.ch/mailman/listinfo/r-help-es
>



-- 
Saludos,
Carlos Ortega
www.qualityexcellence.es

	[[alternative HTML version deleted]]