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

tested edplot with alr gene

Browse source
This commit is contained in:
Tanushree Tunstall 2022-01-26 13:35:57 +00:00
parent 8750e3126a
commit 1b20f09075
6 changed files with 62 additions and 108 deletions
Download patch file Download diff file Expand all files Collapse all files

7
scripts/functions/tests/test_ed_pfm_data.R
View file

@ -1,3 +1,6 @@
source("~/git/LSHTM_analysis/scripts/Header_TT.R")
source("~/git/LSHTM_analysis/scripts/functions/ed_pfm_data.R")
# data msa: mut
my_data = read.csv("/home/tanu/git/Misc/practice_plots/pnca_msa_eg2.csv", header = F) #15 cols only
msaSeq_mut = my_data$V1
@ -23,14 +26,12 @@ wt_seq = msaSeq_wt
################################
# DataED_PFM():
# script: ed_pfm_data.R
source("~/git/LSHTM_analysis/scripts/functions/ed_pfm_data.R")
################################
data_ed = DataED_PFM(msa_seq, wt_seq)
names(data_ed)
#par(mfrow = c(2,1))
logomaker(msa_seq, type = "EDLogo")
#logomaker(msa_seq, type = "EDLogo")
ggseqlogo(data_ed[['combED_mutM']]
, method = "custom")