# NOT RUN {
x<-matrix(c(12,9,14,11,21,16,15,24,20,17,14,11),nrow=4)
a<-leftfootfinding(x,5)
mid<-midvalue(x)
b<-leftshoulderfinding(2.5,mid)
c<-rightshoulderfinding(mid,2.5)
d<-rightfootfinding(x,5)
memTP(a,b,c,d,x)
# [,1] [,2] [,3]
#[1,] 0.5000000 0.6666667 0.8333333
#[2,] 0.7272727 0.8888889 0.6666667
#[3,] 1.0000000 1.0000000 1.0000000
#[4,] 0.2000000 0.2000000 0.2000000
# }
Run the code above in your browser using DataLab