utils.stan

Go to the documentation of this file.

 
real log_dot_product(vector x, vector y) {
  return(log_sum_exp(x + y));
}
 
int num_nonzero(matrix x) {
  int n = 0;
  for (k in 1:rows(x)) {
    for (l in 1:cols(x)) {
      if (x[k, l] != 0) {
        n = n + 1;
      }
    }
  }
  return(n);
}