[R-es] Datos atómicos

[Francisco Viciana]

A ver si esto te vale:

-----------------------------

### Construyo objeto "m.sim" para pruebas
c( 0, 16, 10, 20, 16,  9, 14,
   16,  0,  8,  4,  2, 13, 14,
   10,  8,  0,  2, 13,  4,  6,
   20,  4,  2,  0, 19,  3, 25,
   16,  2, 13, 19,  0, 17, 31,
    9, 13,  4,  3, 17,  0,  7,
   14, 14,  6, 25, 31,  7,  0) -> m.sim
d <- sqrt(length(m.sim))
m.sim <- matrix(m.sim,d)
dimnames(m.sim) <- list(paste0('g',1:d),paste0('g',1:d))

# -------- m.sim ------
#    g1 g2 g3 g4 g5 g6 g7
# g1  0 16 10 20 16  9 14
# g2 16  0  8  4  2 13 14
# g3 10  8  0  2 13  4  6
# g4 20  4  2  0 19  3 25
# g5 16  2 13 19  0 17 31
# g6  9 13  4  3 17  0  7
# g7 14 14  6 25 31  7  0

## m.sim es una matriz simétrica.
## Ahora hay que que definir una criterio de orden,
## aplicarlo y conseguir que la matriz siga siendo
## simétrica despues de la aplicación

## Defino el criterio de orden: "valor de la 1ª columna"
orden <- order(m.sim[,'g1'])

m.sim[orden,orden]
#    g1 g6 g3 g7 g2 g5 g4
# g1  0  9 10 14 16 16 20
# g6  9  0  4  7 13 17  3
# g3 10  4  0  6  8 13  2
# g7 14  7  6  0 14 31 25
# g2 16 13  8 14  0  2  4
# g5 16 17 13 31  2  0 19
# g4 20  3  2 25  4 19  0


-----------------------------


On 15/05/17 22:22, Javier Marcuzzi wrote:
> Estimado Manuel Máquez
>
> No se como describirlo en forma matemática, pero al ver sus datos hay algo de “simétrico”, en otras palabras, si la matriz es un cuadrado yo la puedo cortar, o doblar como una servilleta, y los números coinciden. Por otro lado la primer columna tiene una fila, la segunda dos filas, la tercera tres. Por lo cuál con ordenar cada columna en forma separada podría ordenar los número de menor a mayor.
>
> Como dice Carlos, sería bueno un ejemplo y posiblemente algo sobre para que lo piensa utilizar, pienso que ese tema debe estar en más de un paquete específico para un área de la ciencia en particular.
>
> Javier Rubén Marcuzzi
>
> De: Carlos Ortega
> Enviado: lunes, 15 de mayo de 2017 17:13
> Para: Manuel Máquez
> CC: r-help-es
> Asunto: Re: [R-es] Datos atómicos
>
> Hola Manuel,
>
> Si a partir de la matriz que has planteado, o una más pequeña para sea más
> sencillo, indicas cómo es la nueva matriz ordenada creo que se va a
> entender mejor. Sigo sin entender si quieres ordenar por una columna en
> particular o como te planteaba cada una por independiente...
>
> Gracias,
> Carlos Ortega
> www.qualityexcellence.es
>
> El 15 de mayo de 2017, 20:57, Manuel Máquez <manuelmx11 en gmail.com> escribió:
>
>> Carlos:
>> Te agradezco mucho tu rápida respuesta y mucho me apena haber planteado tan
>> mal el problema. Porque la matriz en realidad es:
>>      g1 g2 g3 g4 g5 g6 g7
>> g1  0 18 13 16 11 12 15
>> g2 18  0 25 13 22 16 10
>> g3 13 25  0 28 23 13 25
>> g4 16 13 28  0  6   7   3
>> g5 11 22 23  6  0  18 17
>> g6 12 16 13  7 18   0   8
>> g7 15 10 25  3 17   8   0
>> Entonces cada cantidad debe conservar la pertenencia al grupo
>> correspondiente .
>> La ordenación la pretendí hacer con el índice de la matriz de 39x39 pero no
>> me funcionó; ¿es posible hacerlo o se debe hacer una por una?
>> Nuevamente mis disculpas y mi agradecimiento por adelantado.
>> Atentamente;
>> *MANOLO MÁRQUEZ P.*
>>
>>          [[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
>>
>
>

-- 
+--------------------------------------------------------------
| Francisco J. Viciana Fernández
| Coordinador del Registro de Población
| Servicio de Estadísticas Demográficas y Sociales
| Instituto de Estadística y Cartografía de Andalucía
| Leonardo Da Vinci, nº 21. Isla de La Cartuja.
| 41071 SEVILLA.
| franciscoj.viciana en juntadeandalucia.es
+--------------------------------------------------------------

------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: franciscoj_viciana.vcf
Type: text/x-vcard
Size: 4 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20170516/7ca6a31b/attachment.vcf>