# NOT RUN {
data(WarblerP)
data(WarblerG)
GdP<-GdataPed(WarblerG)
res1<-expression(varPed("offspring", restrict=0))
var1<-expression(varPed(c("lat", "long"), gender="Male",
relational="OFFSPRING"))
res2<-expression(varPed("terr", gender="Female", relational="OFFSPRING",
restrict="=="))
PdP<-PdataPed(formula=list(var1,res1,res2), data=WarblerP, USsire=FALSE)
X.list<-getXlist(PdP=PdP, GdP=GdP, E2=0.005)
ped<-MLE.ped(X.list)$P
beta<-MLE.beta(X.list, ped)
beta
# }
Run the code above in your browser using DataLab