- if (!is.null(attr(object, "loglik"))) {
- cat("Phylogeny estimated by maximum likelihood.\n")
- cat(" log-likelihood:", attr(object, "loglik"), "\n\n")
- npart <- length(attr(object, "para"))
- for (i in 1:npart) {
- cat("partition ", i, ":\n", sep = "")
- print(attr(object, "para")[[i]])
- if (i == 1) next
- else cat(" contrast parameter (xi):",
- attr(object, "xi")[i - 1], "\n")
- }
- }