View source: R/summaryStatistics.R
get_siteFChange_cherry | R Documentation |
This function calculates the total frequency of methylation differences (both full and half changes) for each genomic structure for each cherry in a phylogenetic tree. A cherry is a pair of leaf nodes (also called tips or terminal nodes) in a phylogenetic tree that share a direct common ancestor. In other words, if two leaves are connected to the same internal node and no other leaves are connected to that internal node, they form a cherry.
get_siteFChange_cherry(tree, data, categorized_data = FALSE)
tree |
A phylogenetic tree in Newick format or a phylo object from the ape package. The function ensures the tree has a valid structure and at least two tips. |
data |
A list containing methylation states at tree tips for each genomic structure (e.g., island/non-island).
The data should be structured as |
categorized_data |
Logical defaulted to FALSE. TRUE to skip redundant categorization when methylation states are represented as 0, 0.5, and 1. |
The function first verifies that tree
and data
have valid structures and the minimum number of tips.
It then extracts per-cherry methylation differences using freqSites_cherryMethDiff
, handling potential errors.
Finally, it aggregates the full and half methylation differences for each genomic structure at each cherry.
A data frame with one row per cherry, containing the following columns:
A character string representing the names of the two tips in the cherry, concatenated with a hyphen.
A character string representing the indices of the two tips in the cherry, concatenated with a hyphen.
A numeric value representing the sum of the branch distances between the cherry tips.
A numeric value representing the total frequency of methylation changes (both full and half) for the given structure.
# Example data setup
data <- list(
list(rep(1,10), rep(0,5), rep(1,8)),
list(rep(1,10), rep(0.5,5), rep(0,8)),
list(rep(1,10), rep(0.5,5), rep(0,8)),
list(c(rep(0,5), rep(0.5, 5)), c(0, 0, 1, 1, 1), c(0.5, 1, rep(0, 6))))
tree <- "((a:1.5,b:1.5):2,(c:2,d:2):1.5);"
get_siteFChange_cherry(tree, data, categorized_data = TRUE)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.