#############################################################################
# EXAMPLE 1: Weighted statistics data.ma01
#############################################################################
data(data.ma01)
dat <- as.matrix(data.ma01[,-c(1:3)])
# weighted mean
ma.wtd.meanNA( dat , weights=data.ma01$studwgt )
# weighted SD
ma.wtd.sdNA( dat , weights=data.ma01$studwgt )
# weighted covariance
ma.wtd.covNA( dat , weights=data.ma01$studwgt )
# weighted correlation
ma.wtd.corNA( dat , weights=data.ma01$studwgt )
Run the code above in your browser using DataLab