#' getNodes function
#'
#' getNodes function
#' @param x likelihood
#' @param k parameters
#' @param n sample size
#' @keywords
#' @return aicc
#' @export
#' @examples
#' getNodes()
getNodes <- function(ttr) ttr$edge[which(ttr$edge[,2] > Ntip(ttr)), 2]
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.