Let\'s say that I have the following array
npso<-array(seq(1:12), c(10, 10, 3125))
I want to extract the lower matrices for creating a new
