trak <- readInfo("Resources/05-19-2018-19-13-19_Speed.bin", "Resources/info.csv", 144)
#metadata$Treatment is logical so we can use gxeBoxes
plot.gxeBoxes(trak)
trak.avg <- flies.avgByGroup(trak)
plot.flyMv_allFigs(trak.avg, "Example", avgMv = T, noMv = T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.