From 21c75bc031a8bda8a769a3568085eab22de51b74 Mon Sep 17 00:00:00 2001
From: Eric Marcon <eric.marcon@agroparistech.fr>
Date: Fri, 28 Jan 2022 11:15:13 +0100
Subject: [PATCH] Example

---
 R/Shimatani.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/R/Shimatani.R b/R/Shimatani.R
index 2ab4e8c..a13c9a5 100644
--- a/R/Shimatani.R
+++ b/R/Shimatani.R
@@ -106,6 +106,11 @@ Simpson_r <- function(spCommunity, r = NULL, spCorrection = "isotropic",
 #' @export
 #'
 #' @examples
+#' # Generate a random community
+#' spCommunity <- rSpCommunity(1, size=1000, S=3)
+#' # Calculate the entropy and plot it
+#' autoplot(Simpson_rEnvelope(spCommunity, NumberOfSimulations=10))
+#' 
 Simpson_rEnvelope <- function(spCommunity, r = NULL, NumberOfSimulations = 100, 
                               Alpha = 0.05, spCorrection = "isotropic", 
                               SimulationType = "RandomLabeling", Global = FALSE,