plot.EvoWeb | R Documentation |
EvoWeb objects are outputted from predict.EvoWeaver
.
This function plots the predictions in the object using a force-directed embedding of connections in the adjacency matrix.
This function is still a work in progress.
## S3 method for class 'EvoWeb'
plot(x, NumSims=10,
Gravity=0.05, Coulomb=0.1, Connection=5,
MoveRate=0.25, Cutoff=0.2, ColorPalette=topo.colors,
Verbose=TRUE, ...)
x |
A EvoWeb object. See |
NumSims |
Number of iterations to run the model for. |
Gravity |
Strength of Gravity force. See 'Details'. |
Coulomb |
Strength of Coulomb force. See 'Details'. |
Connection |
Strength of Connective force. See 'Details'. |
MoveRate |
Controls how far each point moves in each iteration. |
Cutoff |
Cutoff value; if |
ColorPalette |
Color palette for graphing. Valid inputs are any palette available in
|
Verbose |
Logical indicating whether to print progress bars and messages. Defaults to |
... |
Additional parameters for consistency with generic. |
This function plots the EvoWeb
object using a force-directed embedding.
This embedding has three force components:
Gravity Force: Attractive force pulling nodes towards (0,0)
Coulomb Force: Repulsive force pushing close nodes away from each other
Connective Force: Tries to push node connections to equal corresponding values in the adjacency matrix
The parameters in the function are sufficient to get an embedding, though users are welcome to try to tune them for a better visualization. This function is meant to aid with visualization of the adjacency matrix, not for concrete analyses of clusters.
The function included in this release is early stage. Next release cycle will update this function with an updated version of this algorithm to improve plotting, visualization, and runtime.
No return value; creates a plot in the graphics window.
Aidan Lakshman ahl27@pitt.edu
predict.EvoWeaver
EvoWeb
exData <- get(data("ExampleStreptomycesData"))
ew <- EvoWeaver(exData$Genes)
# Subset isn't necessary but is faster for a working example
# Same w/ method='ExtantJaccard'
evoweb <- predict(ew, Method='ExtantJaccard', Subset=1:50)
plot(evoweb)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.