bug fixes and massive clean up of data extraction script

This commit is contained in:
Tanushree Tunstall 2020-03-23 13:33:25 +00:00
parent 8df0b7d920
commit eb021349fe
3 changed files with 818 additions and 454 deletions

View file

@ -68,10 +68,6 @@ table(my_df$position == my_df$Position)
c1 = unique(my_df$Position) # 130
nrow(my_df) # 3092
#FIXME
#!!! RESOLVE !!!
# get freq count of positions and add to the df
@ -99,9 +95,6 @@ my_data_snp = my_df[my_df$occurrence!=1,] #3072, 36...3019
u = unique(my_data_snp$Position) #96
########################################################################
# end of data extraction and cleaning for plots #
########################################################################