# NOT RUN {
# Data assignment
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))
# Return an estimate of the product k[2,1]*k[1,0] where k[2,1] and k[1,0] are respectively
# the cross-correlation of order (2,1) and the marginal mean of the population distribution
nPM( list( c(2,1), c(1,0) ), data1)
# Data assignment
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))
# Return an estimate of the product k[2,0,1]*k[1,1,0] where k[2,0,1] and k[1,1,0]
# are joint cumulants of the population distribution
nPM( list( c(2,0,1), c(1,1,0) ), data2)
# }
Run the code above in your browser using DataLab