Estimados su ayuda con la ejecución del comando lapply()

Tengo creada la siguiente función invertir(matriz,n) que me permite cambiar
la posición de los elementos de una matriz.

invertir<-function(Matriz,n){
  a<-Matriz
  b<-matrix(c(rep(0,n*n)),n,n)
  c<-matrix(c(rep(0,n*n)),n,n)
  for (i in 1:n) {b[i,]<-a[(n+1)-i,]}
  for (j in 1:n) {c[,j]<-b[,(n+1)-j]}
  return(c)
}

matriz<-matrix(c(0,0,0,0,3,0,0,0,7,5,0,0,8,14,4,0),4,4, byrow=TRUE)
invertir(matriz,4)

Lo que necesito es aplicar la función lapply en conjunto con la funcion
creada "invertir" a una lista en donde tengo almacenadas 19 matrices.

Quiero sustituir este codigo que me realiza la misma tarea por la función
lapply() (lo he intentado y me genera problemas de dimensión)

kjl<-list()
for(k in 1:19){
kjl[[k]]<-invertir(triu_inf[[k]],32)}

su ayuda ya que tengo la noción de lo que realiza la función lapply pero no
la entiendo a detalle que hace con c/u de los elementos

Muchas gracias
Alejo

	[[alternative HTML version deleted]]

