Commit 25f99fcd authored by Radford Neal's avatar Radford Neal

remove unnecessary lines as per discussion on r-devel, 20 Feb 2018

parent 839ac66a
......@@ -70,8 +70,6 @@ stem_leaf(double *x, int n, double scale, int width, double atom)
x1 = fabs(x[0]); x2 = fabs(x[n-1]);
if(x2 > x1) x1 = x2;
while(x1*c > INT_MAX) c /= 10;
if (k*(k-4)*(k-8)==0) mu = 5;
if ((k-1)*(k-5)*(k-6)==0) mu = 20;
} else {
r = atom + fabs(x[0])/scale;
c = pow(10.,(11.-(int)(log10(r)+10)));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment