Olá pessoal!

 

Desejo criar uma rotina que consiste no seguinte:

Seja os conjuntos:

A = c(1,2,3,4,5,6,7,8,9,10)
B = c(5,6,15,16,7,8,17,18,9,10,19,20,21,22,31,32,25,26,35,36,29)
C = intersect(c(A,B))

Se o conjunto C tem tamanho 2, então, quero que sortei 1 elemento desse conjunto C
Se o conjunto C tem tamanho 4, então, quero que sortei 2 elementos desse conjunto C
Se o conjunto C tem tamanho 6, então, quero que sortei 4 elementos desse conjunto C
Se o conjunto C tem tamanho 8, então, quero que sortei 6 elementos desse conjunto C
Se o conjunto C tem tamanho 10, então, quero que sortei 9 elementos desse conjunto C

Daí, desejo um novo conjundo D, com todos os elementos sorteados.
Se porém, o conjunto C não tiver elemento nenhum, então quero que o conjunto D, apareça
NA.

 

E se depois eu quiser eliminar esse NA de vários conjuntos D's como faço?

 

desde já agradeço!