lst parents; // List of cycle_relations or a list containing a single subfigure//typedef string (*asy_style)(const ex &, const(const ex & label, const ex &
[i,] <- all.moments(vec,order.max=5)[2:6] # get sample moments mean(asy.cmtx[,3]) #this should be 0mean(asy.cmtx[,4]) # this should be 3
# [1] 2.999996var(sqrt(n)*asy.cmtx[,3]/(asy.cmtx[,2]^(3/2)))