if (FALSE) {
X = wTO.Complete( k =1, n = 5, Data = Microarray_Expression1,
Overlap = ExampleGRF$x[1:10], method = "p", plot = FALSE)
# Plot with the default aguments.
NetVis(Node.1 = X$wTO$Node.1, Node.2 = X$wTO$Node.2,
wTO = X$wTO$wTO_sign, cutoff = list(kind =
"Threshold", value = 0.50))
# Plotting just the edges with p-value < 0.05, with straight edges, nodes clustered,
# no legend and mapipulation of the graph enabled.
NetVis(Node.1 = X$wTO$Node.1, Node.2 = X$wTO$Node.2,
wTO = X$wTO$wTO_sign, pval = X$wTO$pval_sign,
padj = X$wTO$pval_sign,
cutoff= list(kind = "pval", value = 0.05),
smooth.edges = FALSE,
Cluster = TRUE, legend = FALSE, manipulation = TRUE)
# Plotting just the edges with wTO > 0.50, no legend and the nodes:
# "ZNF738", "ZNF677" with triagle shape,
# no legend and mapipulation of the graph enabled.
NetVis(Node.1 = X$wTO$Node.1, Node.2 = X$wTO$Node.2,
wTO = X$wTO$wTO_sign, pval = X$wTO$pval_sign,
padj = X$wTO$pval_sign, cutoff= list(kind = "Threshold", value = 0.5),legend = FALSE,
shape = list(shape = "triangle", names = c("ZNF738", "ZNF677")))
}
Run the code above in your browser using DataLab