To be able to help you, a bit more information is required. In any case, my educated guess is that your assigment:
R[-i,-k,-l,-m]=f
is not correct. If you use the standard Mathematica approach, the indices are not handled correctly. You have to use IndexSet or IndexSetDelayed, something like this:
DefTensor[R[-i, -k, -l, -m], M4]
IndexSet[
R[i_, k_, l_, m_] , B[i,l] C[k, m]
Let us know if that helps or give us a minimal working example.
Best!
Juan