[R-es] setdiff y/o intersect para diferencias entre vectores

[miguel.angel.rodriguez.muinos en sergas.es]

Otra opción....

V3=c(v1,v2)
Intersecc=V3[duplicated(V3)]

Un Saludo,
Miguel.




-----Mensaje original-----
De: r-help-es-bounces en r-project.org [mailto:r-help-es-bounces en r-project.org] En nombre de Rodríguez Muíños, Miguel Ángel
Enviado el: martes, 23 de julio de 2013 13:41
Para: marcos.egea en upct.es; r-help-es en r-project.org
Asunto: Re: [R-es] setdiff y/o intersect para diferencias entre vectores

Hola Marcos.

Yo probaría algo del estilo a esto....

Intersecc<-v1[v1%in%v2]

Un saludo,
_____________________________
Miguel Ángel Rodríguez Muíños
Dirección Xeral de Innovación e Xestión da Saúde Pública Consellería de Sanidade Xunta de Galicia http://dxsp.sergas.es







-----Mensaje original-----
De: r-help-es-bounces en r-project.org [mailto:r-help-es-bounces en r-project.org] En nombre de Prof. Dr. Marcos Egea-Cortines Enviado el: jueves, 18 de julio de 2013 16:47
Para: r-help-es en r-project.org
Asunto: [R-es] setdiff y/o intersect para diferencias entre vectores

hola,
tengo dos vectores de 1134 y 385 elementos que se corresponden con números de accesión de genes. Necesito saber que números son comunes o intersección de vectores.
He utilizado intersect(x,y) y me da todo el rato un único valor:
V1     V1.1     V1.2     V1.3     V1.4     V1.5     V1.6     V1.7     V1.8     V1.9    V1.10    V1.11    V1.12
1 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305 AJ558305
     V1.13    V1.14    V1.15    V1.16    V1.17    V1.18    V1.19    V1.20    V1.21    V1.22    V1.23    V1.24    V1.25
1 AJ558305 AJ558305 AJ558305 AJ558305
.... y así sigue.

utilizando setdiff(uplr, upcrow)
  V166
1   NA

pues menos todavia. Parece algo muy muy simple a mi entender pero no (me) sale saludos Marcos Prof. Dr. Marcos Egea Gutiérrez-Cortines Genetics, ETSIA Instituto de Biotecnología Vegetal Edificio I+D+i, Plaza del Hospital s/n Campus Muralla del Mar 30202, Cartagena Spain
Phone: 34868071077; 34968325705
marcos.egea en upct.es
http://www.upct.es/genetica/index.php
skype: marcosegeacortines
Twitter: @Marcosegeacorti
Tweets are my own






        [[alternative HTML version deleted]]


Nota: A información contida nesta mensaxe e os seus posibles documentos adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea. A distribución ou copia desta mensaxe non está autorizada.

Nota: La información contenida en este mensaje y sus posibles documentos adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a. Si usted no es el/la destinatario/a original de este mensaje, por favor elimínelo. La distribución o copia de este mensaje no está autorizada.

See more languages: http://www.sergas.es/aviso_confidencialidad.htm

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es

Nota: A información contida nesta mensaxe e os seus posibles documentos adxuntos é privada e confidencial e está dirixida únicamente ó seu destinatario/a. Se vostede non é o/a destinatario/a orixinal desta mensaxe, por favor elimínea. A distribución ou copia desta mensaxe non está autorizada.

Nota: La información contenida en este mensaje y sus posibles documentos adjuntos es privada y confidencial y está dirigida únicamente a su destinatario/a. Si usted no es el/la destinatario/a original de este mensaje, por favor elimínelo. La distribución o copia de este mensaje no está autorizada.

See more languages: http://www.sergas.es/aviso_confidencialidad.htm