fix R cmd check doc warning

R/loo_subsample.R

@@ -245,6 +245,7 @@ loo_subsample.function <-
 #'
 #' @export
 #' @inheritParams loo_subsample.function
+#' @param data,draws See [loo_subsample.function()].
 #' @param object A `psis_loo_ss` object to update.
 #' @param ... Currently not used.
 #' @return A `psis_loo_ss` object.
@@ -469,10 +470,10 @@ estimator_choices <- function() {
 ## Approximate elpd -----
 
 #' Utility function to apply user-specified log-likelihood to a single data point
-#' @details 
+#' @details
 #' See [elpd_loo_approximation] and [compute_lpds] for usage examples
 #' @noRd
-#' 
+#'
 #' @return lpd value for a single data point i
 lpd_i <- function(i, llfun, data, draws) {
   ll_i <- llfun(data_i = data[i,, drop=FALSE], draws = draws)
@@ -482,12 +483,12 @@ lpd_i <- function(i, llfun, data, draws) {
 }
 
 
-#' Utility function to compute lpd using user-defined likelihood function 
+#' Utility function to compute lpd using user-defined likelihood function
 #' using platform-dependent parallel backends when cores > 1
-#' 
-#' @details 
+#'
+#' @details
 #' See [elpd_loo_approximation] for usage examples
-#' 
+#'
 #' @noRd
 #' @return a vector of computed log probability densities
 compute_lpds <- function(N, data, draws, llfun, cores) {
@@ -502,7 +503,7 @@ compute_lpds <- function(N, data, draws, llfun, cores) {
       lpds <- parLapply(cl, X = seq_len(N), fun = lpd_i, llfun, data, draws)
     }
   }
-  
+
   unlist(lpds)
 }
 
@@ -570,7 +571,7 @@ elpd_loo_approximation <- function(.llfun, data, draws, cores, loo_approximation
     point_est <- .compute_point_estimate(draws)
     # Compute the lpds
     lpds <- compute_lpds(N, data, point_est, .llfun, cores)
-    
+
     if (loo_approximation == "waic_grad" |
         loo_approximation == "waic_hess") {
       cov_est <- stats::cov(draws)