if (FALSE) {
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)
}
Run the code above in your browser using DataLab