R/HypTreeJSON.R

In structSSI: Multiple Testing for Hypotheses with Hierarchical or Group Structure

HypTreeJSON <- function(hyp.tree, type = 'unadjusted') {
    tree <- graph.edgelist(hyp.tree@tree)
    V(tree)$names <- rownames(hyp.tree@p.vals)
    if(type == 'adjusted') {
        V(tree)$pval <- round(hyp.tree@p.vals[, 'adjp'], 5)
    } else {
        V(tree)$pval <- round(hyp.tree@p.vals[, 'unadjp'], 5)
    }
    rjson::toJSON(ListTreePval(tree))
}