set.seed(9)
test <- snp_attachExtdata()
G <- test$genotypes
y <- rnorm(nrow(G))
gwas <- big_univLinReg(G, y)
snp_qq(gwas)
gwas_gc <- snp_gc(gwas) # change attr(gwas_gc, "transfo")
snp_qq(gwas_gc)
# The next plot should be prettier with a real dataset
snp_manhattan(gwas_gc,
infos.chr = test$map$chromosome,
infos.pos = test$map$physical.pos)
p <- snp_qq(gwas_gc) + ggplot2::aes(text = asPlotlyText(test$map))
if (FALSE) plotly::ggplotly(p, tooltip = "text")
Run the code above in your browser using DataLab