From 60b799e2bb44e83ba7f8bff5546fb68f658bc29c 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:53:04 -0300
Subject: [PATCH] Update summary_table

---
 R/summary_table | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/R/summary_table b/R/summary_table
index ad7ea91..e117537 100644
--- a/R/summary_table
+++ b/R/summary_table
@@ -1,4 +1,7 @@
 
+DrBristol<-function(obs_support,total_obs){
+
+
 find_p <- function(obs_support,total_obs){
   ## Test to make sure that obs_support is less than or equal to total_obs
   stopifnot("The number of observations in favor of the working hypothesis must be less than or equal to the total number of observations"=obs_support<=total_obs)
@@ -50,12 +53,14 @@ sens_analysis <- function(obs_support, obs_oppose, total_obs, p_thresh1=0.05,p_t
 
 ### below is my attempt to make an output table
 
+
 # placing information in dataframe
-table_data <- data.frame(
+table <- data.frame(
   "p-value" = thep,
   "Odds ratio to p=0.05" = the_found_dens1,
   "Odds ratio to p=0.10"  = the_found_dens2
 )
 
 # Print the table
-print(knitr::kable(table_data, align = "c"), type = "text")
+print(knitr::kable(table, align = "c"), type = "text")
+}