EVA_uebungen/ue01/.ipynb_checkpoints/sum2-checkpoint.c

#include <R.h>
dyn.load("sum2.so")
    
void sum2(double* mtrx, int* m, int* n, double* res)
{
    *res = 0;

    for(int i=0; i < *n; i++)
    {
        for(int j=0; j < *m; j++) {
            *res += mtrx[j * (*n) + i];
        }
    }
}