Vectorize comparison of a row vector with every row of a dataframe in R?

Suppose I have a data frame that comes from reading in the following file `Foo.csv` ``` A,B,C 1,2,3 2,2,4 1,7,3 ``` I would like to count the number of matching elements between the first row and subsequent rows. For example, the first row matches with the second row in one position, and matches with the third row in two positions. Here is some code that will achieve the desired effect. ``` foo = read.csv("Foo.csv") numDiffs = rep(0,dim(foo)[1]) for (i in 2:dim(foo)[1]) { numDiffs[i] = sum(foo[i,] == foo[1,]) } print(numDiffs) ``` My question is, can this be vectorized to kill the loop and possibly reduce the running time? My first attempt is below, but it leaves an error because `==` is not defined for this type of comparison. ``` colSums(foo == foo[1,]) ```