basil=cross
here is the code I used for my 3 binary traits:
for(i in 1:3){
p<-phenames(basil)[i+n]
if(length(qtlist.bin[[p]][,1])>0){
q<-rbind(qtlist.bin[[p]][,-c(3,4)],
s.aq[[p]])
rqtl2.bin[[p]]<-refineqtl(basil,p,makeqtl(basil,q[,1],q[,2],what="prob"),maxit.fitqtl=1e+6,tol=0.05,method="hk",model="binary")
out.ap.bin[[p]]<-addpair(basil,q[,1],p,rqtl2.bin[[p]],maxit=1e+6,tol=0.2,method="hk",model="binary")
qtlpairs[[p]]<-summary(out.ap.bin[[p]],thresholds=m.bin[p,])
s.fq[[p]]<-summary(out.fq[[p]]<- fitqtl(basil,p,rqtl2.bin[[p]],maxit=1e+6,tol=0.01,method="hk",model="binary",get.ests=T))
}