From 74769b9a38ea24a5813151547f9e3400a3821fc7 Mon Sep 17 00:00:00 2001
From: Tanushree Tunstall <tanu@tunstall.in>
Date: Thu, 19 Nov 2020 18:04:59 +0000
Subject: [PATCH] cleaninig code

---
 flu_stats_contingency.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/flu_stats_contingency.R b/flu_stats_contingency.R
index a64ad95..8f43b88 100755
--- a/flu_stats_contingency.R
+++ b/flu_stats_contingency.R
@@ -69,7 +69,7 @@ stats_df = subset(categ_df, select = -c(mosaic))
 
 my_categ_cols = colnames(categ_df)[!colnames(categ_df)%in%metadata_cols]
 
-if ( length(my_categ_cols) == ncol(categ_df) - length(drop_cols) ){
+if ( length(my_categ_cols) == ncol(categ_df) - length(metadata_cols) ){
   cat("PASS: variables for chisq test successfully extracted")
 }else{
   cat("FAIL: length mismatch when extracting variables for chisq")
@@ -133,7 +133,7 @@ sum(tab)
 #================================================================================
 #--------------------
 # Fishers test: without any OR
-# see standalone script for this!
+# see standalone script for ORs
 #--------------------
 
 fisher_df = data.frame()