Displaying 4 results from an estimated 4 matches for "xtract".
Did you mean:
extract
2005 Oct 23
1
Coloring leaves, twigs and labels in plot.dendrogram()
...(inner)
paste(" height", formatC(yTop), "; "), "(x1,x2)= (",
formatC(x1, wid = 4), ",", formatC(x2, wid = 4),
")", "--> xTop=", formatC(xTop, wid = 8), "\n", sep = "")
}
Xtract <- function(nam, L, default, indx) rep(if (nam %in%
names(L))
L[[nam]]
else default, length.out = indx)[indx]
asTxt <- function(x) if (is.character(x) || is.expression(x) ||
is.null(x))
x
else as.character(x)
i <- if (inner || hasP)...
2015 May 18
2
A "bug" in plot.dendrogram - can't plot lty with character color
...nches_lty", 1:2) %>% set("branches_col",
as.character(1:2)) %>%
unclass %>% str
Possible solution
==============
The simplest (and backward) compatible solution I can think of is to edit
the function:
stats:::plotNode
And change the following lines:
col <- Xtract("col", ePar, default = par("col"),
i)
lty <- Xtract("lty", ePar, default = par("lty"),
i)
lwd <- Xtract("lwd", ePar, default = par("lwd"),
i)
Wit...
2007 Sep 01
2
Importing huge XML-Files
...>
<depth />
</Soilrespirationrate>
<MRType2>
...
+ <personData>
+ <siteData>
I only need the measurement/MRType1 nodes - how can I do this?
Currently I am trying the following code:
xmlEventParse("/input.xml", list(startElement=xtract.startElement,
text=xtract.text), useTagName=TRUE, addContext = FALSE)
xtract.startElement <- function(name,attr){
startElement.name <<- c(startElement.name,name)
}
xtract.text <- function(text) {
startElement.value <<- c(startElement.value,text)
}
this only gives me two l...
2015 May 20
0
Probably a "bug" in the dendextend package
...n R's dendrogram code
but rather in your package.
> Possible solution
> ==============
> The simplest (and backward) compatible solution I can think of is to edit
> the function:
> stats:::plotNode
> And change the following lines:
> col <- Xtract("col", ePar, default = par("col"),
> i)
> lty <- Xtract("lty", ePar, default = par("lty"),
> i)
> lwd <- Xtract("lwd", ePar, default = par("lwd"),
> i)
> With:
> col <- Xtract(&qu...