Skip to content
Snippets Groups Projects
Commit cc8570ca authored by SANTAGOSTINI Pierre's avatar SANTAGOSTINI Pierre
Browse files

Documentation: deprecated functions

parent 7c2fca33
No related branches found
No related tags found
No related merge requests found
...@@ -4,9 +4,6 @@ ...@@ -4,9 +4,6 @@
#' `r lifecycle::badge("deprecated")` #' `r lifecycle::badge("deprecated")`
#' #'
#' Use [dmcd()] instead of `mvdcd()`. #' Use [dmcd()] instead of `mvdcd()`.
#' Use [rmcd()] instead of `mvrcd()`.
#' Use [plotmcd()] instead of `plotmvcd()`.
#' Use [contourmcd()] instead of `contourmvcd()`.
#' #'
#' @importFrom lifecycle deprecate_soft #' @importFrom lifecycle deprecate_soft
#' @export #' @export
...@@ -19,12 +16,27 @@ mvdcd <- function(x, mu, Sigma, tol = 1e-6) { ...@@ -19,12 +16,27 @@ mvdcd <- function(x, mu, Sigma, tol = 1e-6) {
dmcd(x, mu, Sigma, tol) dmcd(x, mu, Sigma, tol)
} }
#' @description
#' Use [rmcd()] instead of `mvrcd()`.
#'
#' @importFrom lifecycle deprecate_soft
#' @export
#' @keywords internal
#' @rdname deprecated
mvrcd <- function(n, mu, Sigma, tol = 1e-6) { mvrcd <- function(n, mu, Sigma, tol = 1e-6) {
deprecate_soft("1.2.0", "mvrcd()", "rmcd()") deprecate_soft("1.2.0", "mvrcd()", "rmcd()")
rmcd(n, mu, Sigma, tol) rmcd(n, mu, Sigma, tol)
} }
#' @description
#' Use [plotmcd()] instead of `plotmvcd()`.
#' Use [contourmcd()] instead of `contourmvcd()`.
#'
#' @importFrom lifecycle deprecate_soft
#' @export
#' @keywords internal
#' @rdname deprecated
plotmvcd <- function(mu, Sigma, xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]), plotmvcd <- function(mu, Sigma, xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]),
ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]), n = 101, ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]), n = 101,
xvals = NULL, yvals = NULL, xlab = "x", ylab = "y", xvals = NULL, yvals = NULL, xlab = "x", ylab = "y",
...@@ -35,6 +47,13 @@ plotmvcd <- function(mu, Sigma, xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]), ...@@ -35,6 +47,13 @@ plotmvcd <- function(mu, Sigma, xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]),
col, tol, ...) col, tol, ...)
} }
#' @description
#' Use [contourmcd()] instead of `contourmvcd()`.
#'
#' @importFrom lifecycle deprecate_soft
#' @export
#' @keywords internal
#' @rdname deprecated
contourmvcd <- function(mu, Sigma, beta, contourmvcd <- function(mu, Sigma, beta,
xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]), xlim = c(mu[1] + c(-10, 10)*Sigma[1, 1]),
ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]), ylim = c(mu[2] + c(-10, 10)*Sigma[2, 2]),
......
...@@ -3,16 +3,59 @@ ...@@ -3,16 +3,59 @@
\name{deprecated} \name{deprecated}
\alias{deprecated} \alias{deprecated}
\alias{mvdcd} \alias{mvdcd}
\alias{mvrcd}
\alias{plotmvcd}
\alias{contourmvcd}
\title{Deprecated functions} \title{Deprecated functions}
\usage{ \usage{
mvdcd(x, mu, Sigma, tol = 1e-06) mvdcd(x, mu, Sigma, tol = 1e-06)
mvrcd(n, mu, Sigma, tol = 1e-06)
plotmvcd(
mu,
Sigma,
xlim = c(mu[1] + c(-10, 10) * Sigma[1, 1]),
ylim = c(mu[2] + c(-10, 10) * Sigma[2, 2]),
n = 101,
xvals = NULL,
yvals = NULL,
xlab = "x",
ylab = "y",
zlab = "f(x,y)",
col = "gray",
tol = 1e-06,
...
)
contourmvcd(
mu,
Sigma,
beta,
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",
sub = NULL,
nlevels = 10,
levels = pretty(zlim, nlevels),
tol = 1e-06,
...
)
} }
\description{ \description{
\ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#deprecated}{\figure{lifecycle-deprecated.svg}{options: alt='[Deprecated]'}}}{\strong{[Deprecated]}} \ifelse{html}{\href{https://lifecycle.r-lib.org/articles/stages.html#deprecated}{\figure{lifecycle-deprecated.svg}{options: alt='[Deprecated]'}}}{\strong{[Deprecated]}}
Use \code{\link[=dmcd]{dmcd()}} instead of \code{mvdcd()}. Use \code{\link[=dmcd]{dmcd()}} instead of \code{mvdcd()}.
Use \code{\link[=rmcd]{rmcd()}} instead of \code{mvrcd()}. Use \code{\link[=rmcd]{rmcd()}} instead of \code{mvrcd()}.
Use \code{\link[=plotmcd]{plotmcd()}} instead of \code{plotmvcd()}. Use \code{\link[=plotmcd]{plotmcd()}} instead of \code{plotmvcd()}.
Use \code{\link[=contourmcd]{contourmcd()}} instead of \code{contourmvcd()}.
Use \code{\link[=contourmcd]{contourmcd()}} instead of \code{contourmvcd()}. Use \code{\link[=contourmcd]{contourmcd()}} instead of \code{contourmvcd()}.
} }
\keyword{internal} \keyword{internal}
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment