# NOT RUN {
# Data assignment
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)
# Return the estimate of the product k[2]*k[1], where k[1] and k[2] are respectively
# the mean and the variance of the population distribution
nPS(c(2,1), data)
# }
Run the code above in your browser using DataLab