r - Replace values occuring once in raster by NA -

i have vector of values(generated raster - raster package - function clump in r):

values(rc)  1 na na na  2 na  2  2 na na na na na na na  2 na  2  2 na  2  2 na na na na na na na  2 na na na na na  3 na  4 na  2 na  2 na  5 na na  3 na na  4 na na  2 na na na na na na na na  4 na na na na na na  6 na  7 na  4 na na na  8  8 na  6  6 na na na na  4 na na na na na na na na  4  4  4 na na  9 na na na na 10 na na na na  4 na  9  9 na na na na 10 na na na  4 na na na 9 na na na na na na na na na 11 na na na 12 na na na na 

and find every value occurs once(so 1,5,11,10) , replace na. obtain:

values(replaced_rc)  na na na na  2 na  2  2 na na na na na na na  2 na  2  2 na  2  2 na na na na na na na  2 na na na na na  3 na  4 na  2 na  2 na  na na na  3 na na  4 na na  2 na na na na na na na na  4 na na na na na na  6 na  na na  4 na na na  8  8 na  6  6 na na na na  4 na na na na na na na na  4  4  4 na na  9 na na na na 10 na na na na  4 na  9  9 na na na na 10 na na na  4 na na na 9 na na na na na na na na na na na na na na na na na na 

the problem can identify raster patches function clump. , exclude patches containing pixel, function "sieve" in envi or erdas. help? lot in advance.

exemple r:

library("raster") r <- raster(ncols=12, nrows=12) set.seed(0) r[] <- round(runif(ncell(r))*0.7 ) plot(r) rc <- clump(r) replaced_rc<- ???  

using duplicated:

values(rc)[!duplicated(values(rc)) & !duplicated(values(rc),fromlast=t)] <- na