xy <- ellipsePts(c(10, 100), sigma = cbind(c(4, 7), c(7, 28)), npoints = 20)
plot(xy, type = "b", col=2, cex=2,
main="ellipsePts(mu = (10,100), sigma, npoints = 20)")
points(10, 100, col=3, cex=3, pch=3)
text (10, 100, col=3, expression(mu == "mu"), adj=c(-.1, -.1))
stopifnot(is.matrix(xy), dim(xy) == c(20, 2))
Run the code above in your browser using DataLab