R/parentsFun.R

parentsFun <-
function(size, numb){
	man = sample(1:size, numb, replace=TRUE)
	woman = sample(1:size, numb, replace=TRUE)
	cbind(man, woman)
}
dustinfife/witness documentation built on May 15, 2019, 6:05 p.m.