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

added katg tables

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-28 22:31:12 +01:00
parent d5da923a74
commit 6441be21ab
8 changed files with 31 additions and 200 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/plotting/plotting_thesis/alr/alr_appendix_tables.R
View file

@ -15,7 +15,6 @@ geneL_na_v2 = c("gid")
geneL_ppi2 = c("alr", "embb", "katg", "rpob")
geneL_both = c("rpob")
if (tolower(gene)%in%geneL_na_v2) {
gene_colnames = c("mcsm_na_affinity", "mcsm_na_outcome")
}
@ -200,6 +199,7 @@ colsNames_to_output_nca = c("position"
#, paste0("NA-Dist (", angstroms_symbol, ")")
#, paste0("mCSM-NA (", delta_symbol,delta_symbol,"G)")
#, "mCSM-NA outcome"
, paste0("PPI-Dist (", angstroms_symbol, ")")
, paste0("mCSM-PPI (", delta_symbol,delta_symbol,"G)")
, "mCSM-PPI outcome"
@ -226,7 +226,7 @@ table(Out_df_ncaS$plp_site)
#----------------------
Out_ncaT = paste0(outdir_stats
, tolower(gene)
, "_na_muts.csv")
, "_ppi2_muts.csv")
cat("Output of NA muts:", Out_ncaT )
write.csv(Out_df_ncaS, Out_ncaT, row.names = FALSE)