tanu/mosaic_2020
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

cleaninig code

Browse source
This commit is contained in:
Tanushree Tunstall 2020-11-19 18:04:59 +00:00
parent 269918d696
commit 74769b9a38
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
flu_stats_contingency.R
View file

@ -69,7 +69,7 @@ stats_df = subset(categ_df, select = -c(mosaic))
my_categ_cols = colnames(categ_df)[!colnames(categ_df)%in%metadata_cols] 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") cat("PASS: variables for chisq test successfully extracted")
}else{ }else{
cat("FAIL: length mismatch when extracting variables for chisq") cat("FAIL: length mismatch when extracting variables for chisq")
@ -133,7 +133,7 @@ sum(tab)
#================================================================================ #================================================================================
#-------------------- #--------------------
# Fishers test: without any OR # Fishers test: without any OR
# see standalone script for this! # see standalone script for ORs
#-------------------- #--------------------
fisher_df = data.frame() fisher_df = data.frame()