R/kids.g.R

Defines functions kids.g

kids.g <-
function(n.kids, p.gene){ 
ptmp <- sum((p.gene-c(1,0))*c(3,1))
return(sample(1:3, n.kids, replace=TRUE, prob=Pgene(1:3, ptmp)))
}

Try the FamEvent package in your browser

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

FamEvent documentation built on May 30, 2017, 7:56 a.m.