rmixreg <- function (x, ...) {
# Random (simulated) data from a mixreg (mixture of regressions)
# model.  (The generic function.)
    UseMethod("rmixreg")
}