From c970ab734c4aa2e78a634b7a9c8b3edce5c2a9d1 Mon Sep 17 00:00:00 2001
From: Matias-Lopez-13 <112888781+Matias-Lopez-13@users.noreply.github.com>
Date: Thu, 20 Jun 2024 15:59:01 -0300
Subject: [PATCH] Update summary_table

---
 R/summary_table | 2 --
 1 file changed, 2 deletions(-)

diff --git a/R/summary_table b/R/summary_table
index e117537..ac572ed 100644
--- a/R/summary_table
+++ b/R/summary_table
@@ -27,7 +27,6 @@ sens_analysis <- function(obs_support, obs_oppose, total_obs, p_thresh1=0.05,p_t
   theodds1 <- uniroot(f = find_odds, interval = c(.0001, n * 10), trace = 2, extendInt = "yes")
   found_odds1 <- theodds1$root
   the_found_dens1 <- dFNCHypergeo(seq(0, obs_support), m1 = obs_support, m1 = obs_oppose, n = total_obs, odds = found_odds1)
-  return(the_found_dens1)
 }
 
 sens_analysis <- function(obs_support, obs_oppose, total_obs, p_thresh1=0.05,p_thresh2=0.1) {
@@ -47,7 +46,6 @@ sens_analysis <- function(obs_support, obs_oppose, total_obs, p_thresh1=0.05,p_t
   theodds2 <- uniroot(f = find_odds, interval = c(.0001, n * 10), trace = 2, extendInt = "yes")
   found_odds2 <- theodds2$root
   the_found_dens2 <- dFNCHypergeo(seq(0, obs_support), m1 = obs_support, m1 = obs_oppose, n = total_obs, odds = found_odds2)
-  return(the_found_dens2)
 }