# compute random edge weights
edges_all <- matrix(rnorm(5*6), nrow=5, ncol=6)
# annotation of the edges as returned by "loocv" and kfoldCV
colnames(edges_all) <- c("1->2", "1->3", "2->1", "2->3", "3->1", "3->2")
# annotation of the nodes
annot_node <- c(1,2,3)
getSampleAdjaMAD(edges_all, n=3, annot_node, method = "median", method2 = "mad", septype = "->")
getSampleAdja(edges_all, n=3, annot_node, method = "median", septype = "->")
Run the code above in your browser using DataLab