linreg scaling when R<0

[wpreimes]

I think the linreg scaling should not be applied to data where R is negative? Currently we use abs(slope), but I don't think that is the solution to the problem (it might be the best compromise if we always want to return something, even if it's not scaled properly). Maybe rather we should return NaN when slope < 0?