The following R code is intended to calculate the product of odd numbers in a numeric vector. However, it contains a minor logical error and doesn't produce the correct result. Identify the error and fix the code. calculate_odd_product <- function(numbers) { odd_numbers <- numbers[numbers %%2=1 ] product <- prod(odd_numbers) return(product) }