Corrected: default value of argument main and an error message

R/contourmvcd.R

@@ -2,7 +2,7 @@ contourmvcd <- function(mu, Sigma,
                         xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]),
                         ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]),
                         zlim = NULL, npt = 30, nx = npt, ny = npt,
-                        main = "Multivariate generalised Gaussian density",
+                        main = "Multivariate Cauchy density",
                         sub = NULL, nlevels = 10,
                         levels = pretty(zlim, nlevels),
                         tol = 1e-6, ...) {
@@ -17,7 +17,7 @@ contourmvcd <- function(mu, Sigma,
   #'                    xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]),
   #'                    ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]),
   #'                    zlim = NULL, npt = 30, nx = npt, ny = npt,
-  #'                    main = "Multivariate generalised Gaussian density",
+  #'                    main = "Multivariate Cauchy density",
   #'                    sub = NULL, nlevels = 10,
   #'                    levels = pretty(zlim, nlevels), tol = 1e-6, ...)
   #' @param mu length 2 numeric vector.
@@ -51,7 +51,7 @@ contourmvcd <- function(mu, Sigma,
   #' @export
   
   if (length(mu)!=2 | nrow(Sigma)!=2 | ncol(Sigma)!=2)
-    stop(paste("plotmvcd only allows plotting a generalised Gaussian density with 2 variables.",
+    stop(paste("plotmvcd only allows plotting a Cauchy density with 2 variables.",
                "mu must be a length 2 numeric vector and Sigma must be a 2*2 square matrix.", sep = "\n"))
   
   # Estimation of the density