# 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));
nKM(c(2,1),data1)
# generate an estimate of the joint cumulant of order (2,1).
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));
nKM(c(2,2,2),data2)
# generate an estimate of the joint cumulant of order (2,2,2)
data3<-list(c(5.31,11.16,4.23,4.22),c(3.26,3.26,4.10,4.9),c(2.35,2.35,2.27,2.26),
c(4.31,10.16,6.45,6.44),c(3.1,2.3,3.2,3.1),c(3.20, 2.31, 7.3,7.2));
nKM(c(2,1,1,1),data3)
# generate an estimate of the joint cumulant of order (2,1,1,1)
# }
Run the code above in your browser using DataLab