R/dispatcher.R

In blockmodels: Latent and Stochastic Block Model Estimation by a 'V-EM' Algorithm

dispatcher <- function(membership_name,membership_init,model_name,network,real_EM){
	.Call( "dispatcher",
           membership_name,
           membership_init,
           model_name,
           network,
           real_EM,
          PACKAGE = "blockmodels" )
}