## Função que pega uma matriz e passa para colunas mat.INLA <- function(matintera){ n <- dim(matintera)[1] linha <- rep(1:n,each=n) coluna <- rep(1:n,n) teste = data.frame(linha,coluna,inla.matrix2vector(matintera)) names(teste) <- c("linha","coluna","corpo") mat.C = teste[which(teste$corpo != 0),] return(mat.C)}