mutual exclusion

read.table("male_vocabulary.txt")->mv
read.table("female_vocab.txt")->fv
as.character(fv$V3) -> fwords
as.character(mv$V3) -> mwords
####
fonly <- fwords[!(fwords %in% mwords)]
monly <- mwords[!(mwords %in% fwords)]
write.table(fonly, "femaleOnly.txt", row.names=FALSE, quote = FALSE, col.names=FALSE)
write.table(monly, "maleOnly.txt", row.names=FALSE, quote = FALSE, col.names=FALSE)
sum(fonly %in% fwords) == length(fonly)
sum(monly %in% mwords) == length(monly)