uM5pool {Umoments}

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)

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.

Value

Pooled estimate of a fifth central moment.

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)