# NOT RUN {
data(example.out) #Outcrossing data
plot.by.segreg.type(example.out)
plot.by.segreg.type(example.out, subcateg=FALSE)
# You can store the graphic in an object, then save it.
# For details, see the help of ggplot2's function ggsave()
data(example.out) #Outcrossing data
g <- plot.by.segreg.type(example.out)
ggsave("SegregationTypes.jpg", g, width=7, height=4, dpi=600)
# }
Run the code above in your browser using DataLab