## Not run:
# save <- hap.score(y, geno, trait.type = "gaussian")
#
# # Example illustrating generic plot function:
# plot(save)
#
# # Example illustrating specific method plot function:
# plot.hap.score(save)
# ## End(Not run)
Run the code above in your browser using DataLab