# NOT RUN {
data<-c(16.34, 10.76, 11.84, 13.55, 15.85, 18.20, 7.51, 10.22, 12.52, 14.68, 16.08,
19.43,8.12, 11.20, 12.95, 14.77, 16.83, 19.80, 8.55, 11.58, 12.10, 15.02, 16.83,
16.98, 19.92, 9.47, 11.68, 13.41, 15.35, 19.11)
nPS(c(2,1), data)
# generate an estimate of the product c_2*c_1, where c_1 and c_2 are respectively
# the mean and the variance of the population distribution
# }
Run the code above in your browser using DataLab