- if (is.rooted(obj[[i]]))
- cat("\tTREE *,", title[i], "= [&R] ", file = file, append = TRUE)
- else cat("\tTREE *", title[i], "= [&U] ", file = file, append = TRUE)
+ root.tag <- if (is.rooted(obj[[i]])) "= [&R] " else "= [&U] "
+ cat("\tTREE *", title[i], root.tag, file = file, append = TRUE)