# NOT RUN {
x<-matrix(c(12,9,14,11,21,16,15,24,20,17,14,11),nrow=4)
a<-leftfootfinding(x,5)
b<-midvalue(x)
c<-rightfootfinding(x,5)
memT(a,b,c,x)
# [,1] [,2] [,3]
#[1,] 0.3076923 0.4705882 0.5882353
#[2,] 0.5000000 0.5714286 0.4285714
#[3,] 0.8888889 0.9090909 0.8888889
#[4,] 0.1333333 0.1333333 0.1333333
# }
Run the code above in your browser using DataLab