This document serves to test the
R/qtlcharts function iplotRF
.
set.seed(69891250) library(qtl) library(qtlcharts) data(grav)
gravsub <- pull.markers(grav, sample(markernames(grav), 50, replace=FALSE)) gravsub <- est.rf(gravsub) iplotRF(gravsub)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.