Displaying 1 result from an estimated 1 matches for "dnd_rptr".
Did you mean:
dnd_lptr
2003 Sep 17
1
plot.hclust: dendrogram too large for window (PR#4197)
...mp, yval, *y, ymin, ymax, yrange;
+ double pin, *ll, tmp, yval, *y, ymin, ymax, yrange, m;
SEXP originalArgs, merge, height, llabels, str;
char *vmax;
DevDesc *dd;
@@ -3357,8 +3357,14 @@
ll = (double*)R_alloc(n, sizeof(double));
dnd_lptr = &(INTEGER(merge)[0]);
dnd_rptr = &(INTEGER(merge)[n]);
- ymin = REAL(height)[0];
- ymax = REAL(height)[n - 1];
+ ymax = ymin = REAL(height)[0];
+ for (i = 1; i < n; i++) {
+ m = REAL(height)[i];
+ if (m > ymax)
+ ymax = m;
+ if (m < ymin)
+ ymin = m;
+ }
pin = Rf_gpptr(...