1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
here <- function() {}
plot.dendrogram <- stats:::plot.dendrogram
environment(plot.dendrogram) <- environment(here)
plotNodeLimit <- stats:::plotNodeLimit
environment(plotNodeLimit) <- environment(here)
# .memberDend <- stats:::.memberDend
.memberDend <- function (x)
{
r <- attr(x, "x.member")
if (is.null(r)) {
r <- attr(x, "members")
if (is.null(r))
r <- 1L
}
r
}
environment(.memberDend) <- environment(here)
# .midDend <- stats:::.midDend
.midDend <- function (x) {
if (is.null(mp <- attr(x, "midpoint"))) 0 else mp
}
environment(.midDend) <- environment(here)
unByteCode <- function(fun)
{
FUN <- eval(parse(text=deparse(fun)))
environment(FUN) <- environment(fun)
FUN
}
plotNode <- unByteCode(stats:::plotNode)
environment(plotNode) <- environment(here)
|
