R/print.summary.snp.R

In isglobal-brge/SNPassoc: SNPs-Based Whole Genome Association Studies

print.summary.snp<-function(x,...)
{
       cat("Genotypes: \n")
       print(x$genotype.freq, na="",...)
       cat("\n")
       cat("Alleles: \n")
       print(x$allele.freq, na="", ...)
       cat("\n")
       cat("HWE (p value):", x$HWE, "\n")
}