R: Loop to remove NAs only removes some NAs?

Question

I wrote a loop in order to remove values declared as "N.A.". I have two dataframes vis1 and vis2 which have matching rows with "N.A.&quo