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

renamed 2 to _v2

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-22 11:41:42 +01:00
parent c9d7ea9fad
commit 802d6f8495
18 changed files with 761 additions and 976 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scripts/functions/dm_om_data.R
View file

@ -222,12 +222,12 @@ dm_om_wf_lf_data <- function(df
}
if (tolower(gene)%in%geneL_na){
colnames_to_extract = c(common_colnames,"mcsm_na_affinity" , "mcsm_na_scaled" , "mcsm_na_outcome" , naDist_colname)
colnames_to_extract = c(common_colnames ,"mcsm_na_affinity" , "mcsm_na_scaled" , "mcsm_na_outcome" , naDist_colname)
display_colnames = c(display_common_colnames, "mcsm_na_affinity" , mcsm_na_dn , "mcsm_na_outcome" , na_dist_dn)
comb_df_sl = df[, colnames_to_extract]
# Rename cols: display names
colnames(comb_df) = display_colnames
colnames(comb_df_sl) = display_colnames
# Affinity filtered data: mcsm-na --> naDist_colname
comb_df_sl_na = comb_df_sl[comb_df_sl[[na_dist_dn]]<DistCutOff,]