Wk <- Lcomoment.Wk(2,3,5)
# To compute the weight factors for L-skew and L-coskew (k=3) computation
# for a sample of size 20.
Wk <- matrix(nrow=20,ncol=1)
for(r in seq(1,20)) Wk[r] <- Lcomoment.Wk(3,r,20)
# plot(seq(1,20),Wk)
Run the code above in your browser using DataLab