R/plot.crit.fun.R

In blockmodelingTest: Testing Version: Generalized and Classical Blockmodeling of Valued Networks

"plot.crit.fun" <-
function(
	x,#an "crit.fun" class object
	main=NULL,
	...	#aditional parameters to "plot.mat"
){
	if(is.null(main)) main <- deparse(substitute(x))
	plot.mat(x$M,clu=x$clu,IM=x$IM,main=main,...)
}