Correction: mtd (and not mcd)

R/rmtd.R

 rmtd <- function(n, nu, mu, Sigma, tol = 1e-6) {
-  #' Simulate from a Multivariate Cauchy Distribution
+  #' Simulate from a Multivariate \eqn{t} Distribution
   #'
   #' Produces one or more samples from the multivariate (\eqn{p} variables) \eqn{t} distribution (MTD)
   #' with degrees of freedom \code{nu}, mean vector \code{mu} and