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

commented out test code

Browse source
This commit is contained in:
Tanushree Tunstall 2022-08-10 20:03:40 +01:00
parent 842efe4409
commit e714034678
1 changed files with 32 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

64
scripts/plotting/structure_figures/AFFINITY_TEST.R
View file

@ -27,38 +27,38 @@ max(abs((a[c('affinity_scaled','mmcsm_lig_scaled','mcsm_ppi2_scaled','mcsm_na_sc
a2 = (a[c('affinity_scaled','mmcsm_lig_scaled','mcsm_ppi2_scaled','mcsm_na_scaled')]) a2 = (a[c('affinity_scaled','mmcsm_lig_scaled','mcsm_ppi2_scaled','mcsm_na_scaled')])
a2 a2
#
biggest = max(abs(a2[1,])) # biggest = max(abs(a2[1,]))
#
#hmm # #hmm
#which(abs(a2) == biggest) # #which(abs(a2) == biggest)
#names(a2)[apply(a2, 1:4, function(i) which(i == max()))] # #names(a2)[apply(a2, 1:4, function(i) which(i == max()))]
#
# get row max # # get row max
a2$row_maximum = apply(abs(a2[,-1]), 1, max) # a2$row_maximum = apply(abs(a2[,-1]), 1, max)
#
# get colname for abs(max_value) # # get colname for abs(max_value)
#https://stackoverflow.com/questions/36960010/get-column-name-that-matches-specific-row-value-in-dataframe # #https://stackoverflow.com/questions/36960010/get-column-name-that-matches-specific-row-value-in-dataframe
#names(df)[which(df == 1, arr.ind=T)[, "col"]] # #names(df)[which(df == 1, arr.ind=T)[, "col"]]
# yayy # # yayy
names(a2)[which(abs(a2) == biggest, arr.ind=T)[, "col"]] # names(a2)[which(abs(a2) == biggest, arr.ind=T)[, "col"]]
#
#another:https://statisticsglobe.com/return-column-name-of-largest-value-for-each-row-in-r # #another:https://statisticsglobe.com/return-column-name-of-largest-value-for-each-row-in-r
colnames(a2)[max.col(abs(a2), ties.method = "first")] # Apply colnames & max.col functions # colnames(a2)[max.col(abs(a2), ties.method = "first")] # Apply colnames & max.col functions
################################################# # #################################################
# use whole df # # use whole df
#gene_aff_cols = c('affinity_scaled','mmcsm_lig_scaled','mcsm_ppi2_scaled','mcsm_na_scaled') # #gene_aff_cols = c('affinity_scaled','mmcsm_lig_scaled','mcsm_ppi2_scaled','mcsm_na_scaled')
#
biggest = max(abs(a[gene_aff_cols])) # biggest = max(abs(a[gene_aff_cols]))
a$max_es = biggest # a$max_es = biggest
a$effect = names(a[gene_aff_cols])[which(abs(a[gene_aff_cols]) == biggest, arr.ind=T)[, "col"]] # a$effect = names(a[gene_aff_cols])[which(abs(a[gene_aff_cols]) == biggest, arr.ind=T)[, "col"]]
#
effect_name = unique(a$effect) # effect_name = unique(a$effect)
#get index of value of max effect # #get index of value of max effect
ind = (which(abs(a[effect_name]) == biggest, arr.ind=T)) # ind = (which(abs(a[effect_name]) == biggest, arr.ind=T))
a[effect_name][ind] # a[effect_name][ind]
# extract sign # # extract sign
a$effect_sign = sign(a[effect_name][ind]) # a$effect_sign = sign(a[effect_name][ind])
######################################################## ########################################################
# maxn <- function(n) function(x) order(x, decreasing = TRUE)[n] # maxn <- function(n) function(x) order(x, decreasing = TRUE)[n]
# second_big = abs(a[gene_aff_cols])[maxn(2)(abs(a[gene_aff_cols])] # second_big = abs(a[gene_aff_cols])[maxn(2)(abs(a[gene_aff_cols])]