minor formatting

stan-dev · Mar 5, 2024 · 5e4cf37 · 5e4cf37
1 parent 91e717d
commit 5e4cf37
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -57,7 +57,7 @@ validate_ll <- function(x) {
     stop("List not allowed as input.")
   } else if (anyNA(x)) {
     stop("NAs not allowed in input.")
-  } else if (any(x==Inf)) {
+  } else if (any(x == Inf)) {
     stop("All input values must be finite or -Inf.")
   }
   invisible(x)

diff --git a/R/split_moment_matching.R b/R/split_moment_matching.R
@@ -100,7 +100,7 @@ loo_moment_match_split <- function(x, upars, cov, total_shift, total_scaling,
 
   # lwi_half may have NaNs if computation involves -Inf + Inf
   # replace NaN log ratios with -Inf
-  lr<-lwi_half
+  lr <- lwi_half
   lr[is.na(lr)] <- -Inf
   is_obj_half <- suppressWarnings(importance_sampling.default(lr,
                                                               method = is_method,
@@ -110,7 +110,7 @@ loo_moment_match_split <- function(x, upars, cov, total_shift, total_scaling,
 
   # lwi_half may have NaNs if computation involves -Inf + Inf
   # replace NaN log ratios with -Inf
-  lr<-lwi_half + log_liki_half
+  lr <- lwi_half + log_liki_half
   lr[is.na(lr)] <- -Inf
   is_obj_f_half <- suppressWarnings(importance_sampling.default(lr,
                                                                 method = is_method,