A <- data.frame((read.csv("A.txt", sep="\t")))
B<- data.frame(read.csv("B.removed.txt"))
for (i in 1:length(A))
i <- match(B, A[,2])
C <- A[-i,]