combined msa and wt seq into 1 list so only list is passed as an arg for plotting ED plots

This commit is contained in:
Tanushree Tunstall 2022-02-15 08:31:58 +00:00
parent d38521e03a
commit 2274f01f23
5 changed files with 20 additions and 5 deletions

View file

@ -54,7 +54,6 @@ LogoPlotSnps <- function(plot_df
############################################
# Data processing for logo plot for nsSNPS
############################################
setDT(plot_df)[, mut_pos_occurrence := .N, by = .(eval(parse(text=x_axis_colname)))]
table(plot_df[[x_axis_colname]])