mx1<-matrix(c(0.1,0.2,0.3,0.4),nrow=2)
mx2<-matrix(c(0.4,0.3,0.2,0.1),nrow=2)
list1<-list(mx1,mx2)
#Trim matrices using the Shafer's method ,cutoff is 0.4.
matrices.tflm<-coefa_tflm2(list1,methodE="s",cutoff=0.4)
Run the code above in your browser using DataLab