The following R code is intended to check if a given matrix is symmetric. However, there is a minor logical error in the code. Identify the error and fix the code.

is_symmetric_matrix <- function(mat) { rows <- nrow(mat) cols <- ncol(mat) if (rows != cols) { return(FALSE) } for ( i in 1:rows) { for (j in 1:cols) { if (mat[i,j]!=mat[j,i]) { return(FALSE) } } } return(TRUE) }