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))
}
uM2M3pool(m[2], m[3], m[5], nx, ny)
Run the code above in your browser using DataLab