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

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

blockmodelingRoxygen2 documentation built on June 9, 2020, 3:30 p.m.