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 i = rows(x);
  int j = cols(x);
  int n = 0;
  for (k in 1:i) {
    for (l in 1:j) {
      if (x[k, l] != 0) {
        n = n + 1;
      }
    }
  }
  return(n);
}