Obrigado, Benilton<br><br><br>

<p class="MsoNormal"><span style="mso-ansi-language:EN-US" lang="EN-US">A <-
data.frame((read.csv("A.txt", sep="\t")))</span></p>

<p class="MsoNormal"><span style="mso-ansi-language:EN-US" lang="EN-US">B<-
data.frame(read.csv("B.removed.txt"))</span></p>

<p class="MsoNormal"><span style="mso-ansi-language:EN-US" lang="EN-US">for (i in
1:length(A))</span></p>

<p class="MsoNormal"><span style="mso-ansi-language:EN-US" lang="EN-US">i <-
match(B, A[,2])</span></p>

<p class="MsoNormal">C <- A[-i,]</p>

<br><br>Ricardo<br>