# NOT RUN {
data(Data)
means.vec(Data)
# }
# NOT RUN {
# Computing the waighted mean of mean populations:
# }
# NOT RUN {
data.. = ( means.vec(Data)[1,]*n(Data)[1] +
means.vec(Data)[2,]*n(Data)[2] +
means.vec(Data)[3,]*n(Data)[3] ) / sum(n(Data))
round(data..,3)
# }
Run the code above in your browser using DataLab