
ma.wtd.meanNA(data, weights = rep(1, nrow(data)) )
ma.wtd.sdNA(data, weights = rep(1, nrow(data)) )
ma.wtd.covNA(data, weights = rep(1, nrow(data)) )
ma.wtd.corNA(data, weights = rep(1, nrow(data)) )ma.wtd.meanNA weighted means
ma.wtd.sdNA weighted standard deviations
ma.wtd.covNA weighted covariance matrix
ma.wtd.corNA weighted correlation matrix
}#############################################################################
# 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