Error in if (abs(1 – sample.dev[i]) > total.mean[which(rownames(total.mean) ==

That is not the entire line!  There is code after “==”.  Since there are no line numbers, I cannot easily tell which line this is failing on.

No, I did not write this code.