library(ExprNet)
network <- network_demo
data_type1 <- data_LGG_demo
data_type2 <- data_GBM_demo
edge_pair_selected <- c("1-8", "1-15", "2-16", "3-16", "5-10",
"5-16", "8-11", "8-13", "8-14", "8-15", "13-15")
# compute AT's
AT_res <- analysis_ExprNet(data_type1 = data_type1, data_type2 = data_type2, network = network,
edge_pair_selected = edge_pair_selected,
AT2_perm_test = TRUE, num_perm = 250, num_cores = 2,
type1_name = "LGG", type2_name = "GBM",
subnet_label = "Demo_GO0006306_DNA_methylation(LGG-GBM)",
vertex.label.cex = 1, vertex.size = 10, edge.width = 7)
Run the code above in your browser using DataLab