## Not run:
# data(YGGV)
# res <- bayesPref(pData=YGGV,mcmcL=1000)
#
# prefPlot(prefres=res[[1]],burn=100,pop=TRUE)
#
# prefPlot(prefres=res[[1]],burn=100,pop=TRUE,ymax=15,leg=TRUE,
# catname=c("Astragalus"," Lotus","Lupine","Medicago"),lx=0.6,ly=14) #includes legend
#
# prefPlot(prefres=res[[1]],burn=100,ind=FALSE,pop=TRUE,ymax=15,leg=TRUE,
# catname=c("Astragalus"," Lotus","Lupine","Medicago"),lx=0.6,ly=14) #includes only
# population posterior and legend
# ## End(Not run)Run the code above in your browser using DataLab