This function is the implemtation of the procedure outlined on
http://toreopsahl.com/2009/05/01/projecting-two-mode-networks-onto-weighted-one-mode-networks/
Usage
projecting_tm(net, method = "sum")
Arguments
net
A two-mode edgelist
method
The method-switch control the method used to calculate the weights.
binary sets all weights to 1
sum sets the weights to the number of cooccurances
Newman bases the weights on Newman's (2001) method of discounting for the size of collaborations.
# NOT RUN {## define two-mode networktwo.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 the functionprojecting_tm(two.mode.net, method="Newman")
# }