rowMatch <-
function(vector, matrix){
if (length(vector) == 1) return(match(vector, matrix))
for (i in 1:nrow(matrix)){
if (sum(vector == matrix[i,]) == length(vector))
return(i)
}
return(NA)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.