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-08-01 13:41:43 +01:00
parent 79c261963b
commit e750ee59aa
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/plotting/mcsm_mean_affinity_ensemble.R
View file

@ -103,7 +103,7 @@ cols_to_extract = cols_to_consider[cols_to_consider%in%c(common_cols
# Ensemble affinity
#####################
# extract outcome cols and map numeric values to the categories
# Destabilising == 1, and stabilising == 0
# Destabilising == 0, and stabilising == 1 so rescaling can let -1 be destabilising
df3_plot = df3[, cols_to_extract]
df3_plot[, outcome_cols_aff] <- sapply(df3_plot[, outcome_cols_aff]

8
scripts/plotting/mcsm_mean_stability_ensemble.R
View file

@ -84,8 +84,12 @@ outcome_cols_aff = c("duet_outcome"
#,"provean_outcome"
#,"snap2_outcome"
)
cols_to_consider = colnames(df3)[colnames(df3)%in%c(common_cols, scaled_cols,outcome_cols)]
cols_to_extract = cols_to_consider[cols_to_consider%in%c(common_cols, outcome_cols)]
cols_to_consider = colnames(df3)[colnames(df3)%in%c(common_cols
, scaled_cols
, outcome_cols)]
cols_to_extract = cols_to_consider[cols_to_consider%in%c(common_cols
, outcome_cols)]
##############################################################
#####################