+ unname <- function(treetext) {
+ nc <- nchar(treetext)
+ tstart <- 1
+ while (substr(treetext, tstart, tstart) != "(" && tstart <= nc)
+ tstart <- tstart + 1
+ if (tstart > 1)
+ return(c(substr(treetext, 1, tstart - 1),
+ substr(treetext, tstart, nc)))
+ return(c("", treetext))
+ }