- NewickPrintTreeStr(T,str);
-
- if (strlen (str) < MAX_INPUT_SIZE -1)
- {
- *treeStr = (char *)R_alloc(MAX_INPUT_SIZE, sizeof(char));
- /* added by EP */
- if (strlen(*treeStr))
- strncpy(*treeStr, "", strlen(*treeStr));
- /* end */
- strncpy (*treeStr, str, strlen (str));
- }
+ tree2phylo(T, edge1, edge2, el, tl, n);