## ----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 <- scones.cv(minigwas, gi) ## ------------------------------------------------------------------------ head(cones)