R/parOKgroups.R

"parOKgroups" <-
function(clu,
parOKaddParam #list of additional parameters, at lest k and groups
){
	isTRUE(all(cut(clu,c(0,cumsum(parOKaddParam$k)),labels =FALSE)==parOKaddParam$groups))
	
}

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.