plot.pxg gives error if one genotype group is missing

[kbroman]

Here's an example:

data(hyper)
hyper <- fill.geno(hyper)
class(hyper)[1] <- "f2"
plot.pxg(hyper, markernames(hyper)[1])