 cppFunction("arma::mat GramMat(arma::mat A, double parametro, int n) {             arma::mat resultado=A;             double temp;             for (int i=0; i<n; i++){               for (int j=i; j<n; j++){                   resultado(j,i)= exp(-0*parametro*((A.col(i)-A.col(j)).t() * (A.col(i)-A.col(j))));               }             }             for (int i=0; i<n; i++){               for (int j=0; j<i; j++){                 resultado(i,j)=resultado(j,i);               }             }             return resultado;}",depends="RcppArmadillo")   