# 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
nonmemS(m,lam)
# [,1] [,2] [,3]
#[1,] 0.3838416 0.1460171 0.07314142
#[2,] 0.3828998 0.0689030 0.15121934
#[3,] 0.1078653 0.3871883 0.10786528
#[4,] 0.1078653 0.3871883 0.10786528
# }
Run the code above in your browser using DataLab