R/plot.crit.fun.R

#' @rdname plotMat
#' @export
"plot.critFun" <-
function(
	x,#an "critFun" 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,...)
}


#' @rdname plotMat
#' @method plot crit.fun
#' @export
plot.crit.fun<-plot.critFun

Try the blockmodeling package in your browser

Any scripts or data that you put into this service are public.

blockmodeling documentation built on Aug. 23, 2023, 5:07 p.m.