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 blockmodelingOld package in your browser

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

blockmodelingOld documentation built on May 2, 2019, 5:11 p.m.