The check was in the wrong place
I should not even save this
Cleaned up
Reordered the columns
Adapted to R's output
Nicely calling R
It's working!