data(chinook_survival)
## Convert replicate-level recorded data to individual-level (binary) data
chinook_survival2<- buildBinary(dat=chinook_survival,copy=c(2:6,9),one="alive",zero="dead")
## Standard additive genetic, non-additive genetic, and maternal variance analysis
if (FALSE) survival_mod1<- observGlmer(observ=chinook_survival2,dam="dam",sire="sire",
response="status",fam_link=binomial(link="logit"))
survival_mod1
Run the code above in your browser using DataLab