R-Conta il numero di zeri all’interno di un vettore

int contazeri(int *a, int n){
    if(n==0){//caso ultimo elemento da esaminare, quindi caso base
        if(a==0)//se e' uno zero
            return 1; //lo conto
        else
            return 0;//altrimeni non lo conto
        }
    else//caso generale
        if(*(a+(n-1))==0)
            return 1+contazeri(a, n-1);
        else
            return 0+contazeri(a,n-1);
};