Competitiveness: fix mistake in the table of components.

DESCRIPTION

@@ -2,7 +2,7 @@ Package: sit
 Type: Package
 Title: Analyse Mark-Release-Recapture Data from Sterile Insect
         Technique (SIT) Field Experiments
-Version: 1.1.2.9002
+Version: 1.1.2.9003
 Authors@R: c(person("Françoise", "Chirara", email =
         "francoise.chirara@cirad.fr", role = c("ctb"), comment = "Logo
         designer"), person("Facundo", "Muñoz", email =

R/competitiveness.R

@@ -98,7 +98,7 @@ sit_competitiveness <- function(
 
   comp_table <- data.frame(
     Component = c(
-      "Sterile-wild mortaility ratio", "Natural fertility",
+      "Sterile-wild male ratio", "Natural fertility",
       "Observed fertility in SIT area", "Sterile fertility (assumed)"
     ),
     Value = c(swmr, natural_fertility, sit_fertility, residual_fertility)