Fix lingering linting issues

NIEHS · Jan 13, 2024 · ee193de · ee193de
1 parent e55e38c
commit ee193de
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 7 deletions.
diff --git a/R/PrestoGP_Multivariate_Vecchia.R b/R/PrestoGP_Multivariate_Vecchia.R
@@ -110,9 +110,7 @@ setMethod("prestogp_predict", "MultivariateVecchiaModel",
         ndx.out <- c(ndx.out, rep(i, nrow(locs[[i]])))
       }
       for (i in seq_along(locs)) {
-        Vec.sds[ndx.out == i] <- sqrt(Vec.sds[ndx.out == i] +
-                                      model@covparams[model@param_sequence[4,
-                                                                           i]])
+        Vec.sds[ndx.out == i] <- sqrt(Vec.sds[ndx.out == i] + model@covparams[model@param_sequence[4, i]])
       }
       return.list <- list(means = Vec.mean, sds = Vec.sds)
     }

diff --git a/R/RcppExports.R b/R/RcppExports.R
@@ -2,10 +2,9 @@
 # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
 
 na_omit_c <- function(x) {
-    .Call('_PrestoGP_na_omit_c', PACKAGE = 'PrestoGP', x)
+  .Call('_PrestoGP_na_omit_c', PACKAGE = 'PrestoGP', x)
 }
 
 createU_helper_mat <- function(olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning) {
-    .Call('_PrestoGP_createU_helper_mat', PACKAGE = 'PrestoGP', olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning)
-}
-
+  .Call('_PrestoGP_createU_helper_mat', PACKAGE = 'PrestoGP', olocs, ondx, curqys, curqzs, vijs, aijs, full_const, nugget, sig2, U_beginning)
+}