In jeksterslabds/jeksterslabRmedsimple: Jekster's Lab Simple Mediation Model Utilities

knitr::opts_chunk$set(
  error = TRUE,
  collapse = TRUE,
  comment = "#>",
  out.width = "100%"
)

lambda <- 1
exponential_mean <- 1 / lambda
exponential_variance <- 1 / lambda^2
exponential_skewness <- 2
exponential_kurtosis <- 6

Moments <- c(
  "Mean",
  "Variance",
  "Skewness",
  "Excess Kurtosis"
)
Formula <- c(
  "$\\frac{1}{\\lambda}$",
  "$\\frac{1}{\\lambda^2}$",
  "2",
  "6"
)
Value <- c(
  exponential_mean,
  exponential_variance,
  exponential_skewness,
  exponential_kurtosis
)
x <- data.frame(
  Moments,
  Formula,
  Value
)

\begin{equation} X \sim \exp \left( \lambda = r lambda \right) \end{equation}

knitr::kable(
  x = x
)

x <- seq(from = 0, to = 5, length = 1000)
y <- dexp(
  x = x,
  rate = lambda
)
plot(
  x = x,
  y = y,
  type = "l"
)

See https://en.wikipedia.org/wiki/Exponential_distribution.

data(
  paramsexp,
  package = "jeksterslabRmedsimple"
)
DT::datatable(
  paramsexp
)

For more details see jeksterslabRmedsimple::paramsexp.

jeksterslabds/jeksterslabRmedsimple documentation built on Oct. 16, 2020, 11:30 a.m.