Umoments (version 1.0.1)

uM5pool: Pooled central moment estimates - two-sample

Description

Calculate pooled unbiased estimates of central moments and their powers and products.

Usage

uM5pool(m2, m3, m5, n_x, n_y)

Value

Pooled estimate of a fifth central moment.

Arguments

m2

naive biased variance estimate \(m_2 = 1/(n_x + n_y) \sum_{i = 1}^{n_x} ((X_i - \bar{X})^2 + \sum_{i = 1}^{n_y} ((Y_i - \bar{Y})^2\) for vectors X and Y.

m3

naive biased third central moment estimate \(m_3 = 1/(n_x + n_y) \sum_{i = 1}^{n_x} ((X_i - \bar{X})^3 + \sum_{i = 1}^{n_y} ((Y_i - \bar{Y})^3\) for vectors X and Y.

m5

naive biased fifth central moment estimate \(m_5 = 1/(n_x + n_y) \sum_{i = 1}^{n_x} ((X_i - \bar{X})^5 + \sum_{i = 1}^{n_y} ((Y_i - \bar{Y})^5\) for vectors X and Y.

n_x

number of observations in the first group.

n_y

number of observations in the second group.

See Also

Other pooled estimates (two-sample): uM2M3pool(), uM2M4pool(), uM2pool(), uM2pow2pool(), uM2pow3pool(), uM3pool(), uM3pow2pool(), uM4pool(), uM6pool()

Examples

nx <- 10
ny <- 8
shp <- 3
smpx <- rgamma(nx, shape = shp) - shp
smpy <- rgamma(ny, shape = shp)
mx <- mean(smpx)
my <- mean(smpy)
m  <- numeric(5)
for (j in 2:5) {
  m[j] <- mean(c((smpx - mx)^j, (smpy - my)^j))
}
uM5pool(m[2], m[3], m[5], nx, ny)