← Back to branch summary

~showard314/ubuntu/karmic/r-base/remove_start_comments

« back to all changes in this revision

Viewing changes to src/library/stats/R/dendrogram.R

  • Committer: Bazaar Package Importer
  • Author(s): Dirk Eddelbuettel
  • Date: 2008-12-20 09:26:38 UTC
  • mfrom: (1.2.6 upstream)
  • mto: (2.1.32 jaunty)
  • mto: This revision was merged to the branch mainline in revision 6.
  • Revision ID: james.westby@ubuntu.com-20081220092638-i4p6po0hndi24ri5
* Updated to Dec 19 release candidate of R 2.8.1 expected for Dec 22

* r-doc-pdf expected to be empty due to the tex/texinfo bug below

* debian/control: Change Build-Depends: on openjdk-6-jdk to 
  'openjdk-6-jdk [!arm !hppa]' as arm and hppa do not have one.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/library/stats/R/dendrogram.R
394
394
                vlm <- strheight(c(edgeText,"h"), cex = t.cex)/2
395
395
                hlm <- strwidth (c(edgeText,"m"), cex = t.cex)/2
396
396
                hl3 <- c(hlm[1], hlm[1] + hlm[2], hlm[1])
397
 
                polygon(mx+ c(-hl3, hl3), my + sum(vlm)*c(-1L:1L, 1L:-1L),
398
 
                        col = p.col, border= p.border, lty = p.lty, lwd = p.lwd)
399
 
                text(mx, my, edgeText, cex = t.cex, col = t.col, font = t.font)
 
397
                if(horiz) {
 
398
                    polygon(my+ c(-hl3, hl3), mx + sum(vlm)*c(-1L:1L, 1L:-1L),
 
399
                            col = p.col, border= p.border,
 
400
                            lty = p.lty, lwd = p.lwd)
 
401
                    text(my, mx, edgeText, cex = t.cex, col = t.col,
 
402
                         font = t.font)
 
403
                } else {
 
404
                    polygon(mx+ c(-hl3, hl3), my + sum(vlm)*c(-1L:1L, 1L:-1L),
 
405
                            col = p.col, border= p.border,
 
406
                            lty = p.lty, lwd = p.lwd)
 
407
                    text(mx, my, edgeText, cex = t.cex, col = t.col,
 
408
                         font = t.font)
 
409
                }
400
410
            }
401
411
            plotNode(bx$limit[k], bx$limit[k + 1], subtree = child,
402
412
                     type, center, leaflab, dLeaf, nodePar, edgePar, horiz)