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

saving

Browse source
This commit is contained in:
Tanushree Tunstall 2022-09-06 21:35:59 +01:00
parent 23bb087ea3
commit ade1739753
3 changed files with 27 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/plotting/plotting_thesis/alr/alr_ORandSNP_results.R
View file

@ -161,9 +161,11 @@ if (nrow(bar_or) == nrow(sen1) + nrow(res1) ){
# percent for OR muts
pc_orR = nrow(res1)/(nrow(sen1) + nrow(res1)); pc_orR
cat("Number of R muts with OR>1:", nrow(res1)
, "\nPercentage of muts with OR>1 i.e resistant:"
, pc_orR *100 )
cat("\nNo.of DST muts:", nrow(bar_or)
, "\nNo of DST (R):", table(bar_or$sensitivity)[[1]]
, "\nNo of DST (S):", table(bar_or$sensitivity)[[2]]
, "\nNumber of R muts with OR >1 (n = ", nrow(res1),")"
, "\nPercentage of muts with OR>1 i.e resistant:" , pc_orR *100 )
# muts with highest OR
head(bar_or$mutationinformation, 10)