Disculpas por el título confuso, pero no sé cómo expresar mi problema de otra manera. En R, tengo el siguiente problema que quiero resolver:

x <- seq(1,1, length.out=10)
y <- seq(0,0, length.out=10)
z <- c(x, y)
p <- c(1,0,1,1,0,0)

¿Cómo puedo eliminar el vector p del vector z para que un vector nuevo ahora tenga tres ocurrencias de 1 y tres ocurrencias 0Menos, ¿qué debo hacer para llegar al siguiente resultado? En la solución, el orden de 1 y 0 en z no debería importar, simplemente podrían haber estado en un orden aleatorio, además puede haber otros números involucrados también.

i
> 1 1 1 1 1 1 1 0 0 0 0 0 0 0

¡Gracias por adelantado!