This function is the implemtation of the procedure outlined in this blog post.

Example

# Load tnet
library(tnet)

# Load data
two.mode.net <- cbind(
i=c(1,1,2,2,2,2,2,3,4,5,5,5,6),
p=c(1,2,1,2,3,4,5,2,3,4,5,6,6))

# Run function
projecting_tm(two.mode.net, method="Newman")