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

changes

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-10 16:06:14 +01:00
parent cf732a3bcc
commit f415b0b239
1 changed files with 28 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

52
scripts/plotting/other_plots_data.R
View file

@ -24,30 +24,7 @@ rm(merged_df2, merged_df2_comp, merged_df2_lig, merged_df2_comp_lig
#%%%%%%%%%%%%%%%%%%%%
df_ps = merged_df3
# name tidying
df_ps$mutation_info = as.factor(df_ps$mutation_info)
df_ps$duet_outcome = as.factor(df_ps$duet_outcome)
df_ps$foldx_outcome = as.factor(df_ps$foldx_outcome)
df_ps$ligand_outcome = as.factor(df_ps$ligand_outcome)
# check
table(df_ps$mutation_info)
#%%%%%%%%%%%%%%%%%%%
# REASSIGNMENT: LIG
#%%%%%%%%%%%%%%%%%%%%
df_lig = merged_df3_lig
# name tidying
df_lig$mutation_info = as.factor(df_lig$mutation_info)
df_lig$duet_outcome = as.factor(df_lig$duet_outcome)
df_lig$ligand_outcome = as.factor(df_lig$ligand_outcome)
# check
table(df_lig$mutation_info)
#========================================================================
# adding folds scaled values
n = which(colnames(df_ps) == "ddg"); n # 10
my_min = min(df_ps[,n]); my_min
@ -73,6 +50,33 @@ if ( all(c1 == c2) ){
exit()
}
# name tidying
df_ps$mutation_info = as.factor(df_ps$mutation_info)
df_ps$duet_outcome = as.factor(df_ps$duet_outcome)
df_ps$foldx_outcome = as.factor(df_ps$foldx_outcome)
df_ps$ligand_outcome = as.factor(df_ps$ligand_outcome)
# check
table(df_ps$mutation_info)
#%%%%%%%%%%%%%%%%%%%
# REASSIGNMENT: LIG
#%%%%%%%%%%%%%%%%%%%%
df_lig = merged_df3_lig
# name tidying
df_lig$mutation_info = as.factor(df_lig$mutation_info)
df_lig$duet_outcome = as.factor(df_lig$duet_outcome)
df_lig$ligand_outcome = as.factor(df_lig$ligand_outcome)
# check
table(df_lig$mutation_info)
#========================================================================
#===========
# Data: ps
#===========