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

various bugs

Browse source
This commit is contained in:
Tanushree Tunstall 2022-07-10 20:00:35 +01:00
parent 6950c4b057
commit 33e3b5a0a6
3 changed files with 39 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

47
scripts/count_vars_ML.R
View file

@ -213,32 +213,41 @@ str(a)
###################################################
###################################################
#
# source("~/git/LSHTM_analysis/config/alr.R")
# source("~/git/LSHTM_analysis/config/embb.R")
# source("~/git/LSHTM_analysis/config/gid.R")
# source("~/git/LSHTM_analysis/config/katg.R")
# source("~/git/LSHTM_analysis/config/pnca.R")
# source("~/git/LSHTM_analysis/config/rpob.R")
source("~/git/LSHTM_analysis/config/alr.R")
source("~/git/LSHTM_analysis/config/embb.R")
source("~/git/LSHTM_analysis/config/gid.R")
source("~/git/LSHTM_analysis/config/katg.R")
source("~/git/LSHTM_analysis/config/pnca.R")
source("~/git/LSHTM_analysis/config/rpob.R")
#
# df3_filename = paste0("/home/tanu/git/Data/", drug, "/output/", tolower(gene), "_merged_df3.csv")
# df3 = read.csv(df3_filename)
df3_filename = paste0("/home/tanu/git/Data/", drug, "/output/", tolower(gene), "_merged_df3.csv")
df3 = read.csv(df3_filename)
#
# # mutationinformation
# length(unique((df3$mutationinformation)))
# mutationinformation
length(unique((df3$mutationinformation)))
#
# #dm _om
# table(df3$mutation_info)
# table(df3$mutation_info_labels)
# table(df3$mutation_info_orig)
# table(df3$mutation_info_labels_orig)
#
# # test_set
# na_count <-sapply(df3, function(y) sum(length(which(is.na(y)))))
# na_count[drug]
table(df3$mutation_info)
table(df3$mutation_info_labels)
table(df3$mutation_info_orig)
table(df3$mutation_info_labels_orig)
# test_set
na_count <-sapply(df3, function(y) sum(length(which(is.na(y)))))
na_count[drug]
#
# # training set
# table(df3[drug])
table(df3[drug])
#
# # drtype: MDR and XDR
# #table(df3$drtype) orig i.e. incorrect ones!
# table(df3$drtype_mode_labels)
df3_complete = df3
table(df3_complete$dst_mode)
df3_actual = df3[!is.na(df3$dst), ]
table(df3_actual$dst_mode)