非运算符中的问题

谁能帮帮我吗。不知道我在这里做什么错。根据代码,我应该得到结果为“ A”对吗?还是我错过了什么?

> asd <- c("A")
> asd1 <- c("B","V")
> asd[asd %in% !(asd %in% asd1)]
character(0)