scones_usage.R
In martini: GWAS Incorporating Networks

## ----load martini-------------------------------------------------------------
library(martini)

## ----print fam----------------------------------------------------------------
head(minigwas$fam)

## ----print map----------------------------------------------------------------
head(minigwas$map)

## ----print genotypes----------------------------------------------------------
minigwas$genotypes

## ----create GS network--------------------------------------------------------
gs <- get_GS_network(minigwas)
par(mar=c(0,0,0,0)+.1)
plot(gs)

## ----create GM network--------------------------------------------------------
gm <- get_GM_network(minigwas, snpMapping = minisnpMapping)
par(mar=c(0,0,0,0)+.1)
plot(gm)

## ----create GI network--------------------------------------------------------
gi <- get_GI_network(minigwas, snpMapping = minisnpMapping, ppi = minippi)
par(mar=c(0,0,0,0)+.1)
plot(gi)

## ----find cones gridsearch----------------------------------------------------
cones <- search_cones(minigwas, gi)

## -----------------------------------------------------------------------------
head(cones)