# NOT RUN {
data1<-list(c(5.31,11.16),c(3.26,3.26),c(2.35,2.35),c(8.32,14.34),c(13.48,49.45),
c(6.25,15.05),c(7.01,7.01),c(8.52,8.52),c(0.45,0.45),c(12.08,12.08),c(19.39,10.42));
nPM( list( c(2,1), c(1,0) ), data1)
# generate an estimate of the product c_(2,1)*c_(1,0) where c_(2,1) and c_(1,0) are respectively
# the cross-correlation of order (2,1) and the marginal mean of the population distribution
data2<-list(c(5.31,11.16,4.23),c(3.26,3.26,4.10),c(2.35,2.35,2.27),
c(4.31,10.16,6.45),c(3.1,2.3,3.2),c(3.20, 2.31, 7.3));
nPM( list( c(2,0,1), c(1,1,0) ), data2)
# generate an estimate of the product c_(2,0,1)*c(1,1,0) where c_(2,0,1) and c(1,1,0)
# are joint cumulants of the population distribution
# }
Run the code above in your browser using DataLab