This document serves to test the R/qtlcharts function iplotCorr.

knitr::opts_chunk$set(fig.width=9, fig.height=6)
set.seed(69891250)
library(qtl)
library(qtlcharts)
data(grav)

Reduce size of data.

grav$pheno <- grav$pheno[,seq(1, nphe(grav), by=5)]
times <- as.numeric(sub("T", "", phenames(grav)))/60
iplotCorr(grav$pheno)


kbroman/qtlcharts documentation built on May 10, 2023, 6:07 p.m.