in progress
Before chaging from outer() to expand.grid()
new working RRHO