This function packs a punch and makes a pretty figure.
kapow(cd = 7, ng = 25, n = 50, sc = 10, do.plot = TRUE)
A ggplot object
sets the random seed to this
the number of ellipses to draw
the number of data points to simulate per group, but never displayed
the scaling factor the rwishart sigma called by
stats::rWishart()
a logical indicating whether the plot should be printed (defaults to TRUE).