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

added fold and duet agreement to extreme_muts.R

Browse source
This commit is contained in:
Tanushree Tunstall 2020-09-23 11:20:22 +01:00
parent 6d08b646fc
commit a3aab4556a
2 changed files with 25 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
scripts/plotting/plotting_data.R
View file

@ -88,10 +88,10 @@ my_min = min(my_df$foldx_scaled); my_min
my_max = max(my_df$foldx_scaled); my_max
if (my_min == -1 && my_max == 1){
cat("PASS: foldx ddg successfully scaled b/w -1 and 1"
cat("\nPASS: foldx ddg successfully scaled b/w -1 and 1"
, "\nProceeding with assigning foldx outcome category")
}else{
cat("FAIL: could not scale foldx ddg values"
cat("\nFAIL: could not scale foldx ddg values"
, "Aborting!")
}
@ -104,9 +104,9 @@ my_df$foldx_outcome = ifelse(my_df$ddg < 0, "Stabilising", "Destabilising")
c2 = table(my_df$ddg < 0)
if ( all(c1 == c2) ){
cat("PASS: foldx outcome successfully created")
cat("\nPASS: foldx outcome successfully created")
}else{
cat("FAIL: foldx outcome could not be created. Aborting!")
cat("\nFAIL: foldx outcome could not be created. Aborting!")
exit()
}