formatted the code

R/abd_species.R

@@ -1,19 +1,20 @@
 #' Abundances of Communities
-#' 
+#'
 #' Utilities for community abundances (objects of class "abundances").
-#' 
+#'
 #' @returns `abd_species()` returns a tibble containing the species abundance columns only,
 #' to simplify numeric operations.
-#' 
+#'
 #' `prob_species()` returns the same tibble but values are probabilities.
-#' 
+#'
 #' `abd_sum()` returns the sample sizes of the communities in a numeric vector.
 #' @inheritParams check_divent_args
 #'
 #' @examples
 #' abd_species(paracou_6_abd)
+#' prob_species(paracou_6_abd)
 #' abd_sum(paracou_6_abd)
-#' 
+#'
 #' @name abd_species
 NULL
 
@@ -22,11 +23,11 @@ NULL
 #'
 #' @export
 abd_species <- function(
-    abundances, 
+    abundances,
     check_arguments = TRUE) {
 
   if (any(check_arguments)) check_divent_args()
-  
+
   return(
     abundances[, !colnames(abundances) %in% non_species_columns]
   )
@@ -37,12 +38,12 @@ abd_species <- function(
 #'
 #' @export
 abd_sum <- function(
-    abundances, 
-    as_numeric = FALSE, 
+    abundances,
+    as_numeric = FALSE,
     check_arguments = TRUE) {
 
   if (any(check_arguments)) check_divent_args()
-  
+
   the_abd_sum <- rowSums(
     abundances[, !colnames(abundances) %in% non_species_columns]
   )
@@ -65,13 +66,13 @@ abd_sum <- function(
 #'
 #' @export
 prob_species <- function(
-    species_distribution, 
+    species_distribution,
     check_arguments = TRUE) {
-  
+
   if (any(check_arguments)) check_divent_args()
-  
+
   abundances <- species_distribution[
-    , 
+    ,
     !colnames(species_distribution) %in% non_species_columns
   ]
   sample_sizes <- rowSums(abundances)