PPI2Mat <- function(ppi)
{
net<-graph.data.frame(ppi,directed=F)
stopifnot(is.connected(net))
net <- simplify(net)
mat<-get.adjacency(net)
Matrix(mat,sparse=T)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.