# NOT RUN {
x<-matrix(c(12,9,14,11,21,16,15,24,20,17,14,11),nrow=4)
a<-mn(x)
b<-std(x)
m<-memG(a,b,x)
lam<-0.5
nonmemY(m,lam)
# [,1] [,2] [,3]
#[1,] 0.078966962 0.011638215 0.002959405
#[2,] 0.078578801 0.002628666 0.012471988
#[3,] 0.006392896 0.080354498 0.006392896
#[4,] 0.006392896 0.080354498 0.006392896
# }
Run the code above in your browser using DataLab