uM4pool {Umoments}

Pooled central moment estimates - two-sample

Description

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

Usage

uM4pool(m2, m4, 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.

m4

naive biased fourth central moment estimate m_4 = 1/(n_x + n_y) \sum_{i = 1}^{n_x} ((X_i - \bar{X})^4 + \sum_{i = 1}^{n_y} ((Y_i - \bar{Y})^4 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 fourth central moment.

See Also

Other pooled estimates (two-sample): uM2M3pool, uM2M4pool, uM2pool, uM2pow2pool, uM2pow3pool, uM3pool, uM3pow2pool, uM5pool, 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(4)
for (j in 2:4) {
  m[j] <- mean(c((smpx - mx)^j, (smpy - my)^j))
}
uM4pool(m[2], m[4], nx, ny)