Commit cbc7183d authored by Kosmas Hench's avatar Kosmas Hench

correct S10 and S11

parent c97fc920
......@@ -15,7 +15,7 @@ karyo <- read.csv('../../0_data/0_resources/F2.karyo.txt',sep='\t') %>%
bh <- read.csv('../../2_output/08_popGen/05_fst/bel-hon.50kb.5kb.windowed.weir.fst',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BH',RUN='BH');
bp <- read.csv('../../2_output/08_popGen/05_fst/bel-hon.50kb.5kb.windowed.weir.fst',sep='\t') %>%
bp <- read.csv('../../2_output/08_popGen/05_fst/bel-boc.50kb.5kb.windowed.weir.fst',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BP',RUN='BP');
hp <- read.csv('../../2_output/08_popGen/05_fst/hon-boc.50kb.5kb.windowed.weir.fst',sep='\t') %>%
......
......@@ -15,7 +15,7 @@ karyo <- read.csv('../../0_data/0_resources/F2.karyo.txt',sep='\t') %>%
bh <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-hon-gemma.lm.50k.5k.smooth',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BH',RUN='BH');
bp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-hon-gemma.lm.50k.5k.smooth',sep='\t') %>%
bp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-boc-gemma.lm.50k.5k.smooth',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BP',RUN='BP');
hp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/hon-boc-gemma.lm.50k.5k.smooth',sep='\t') %>%
......
......@@ -83,7 +83,7 @@ karyo <- read.csv('../../0_data/0_resources/F2.karyo.txt',sep='\t') %>%
bh <- read.csv('../../2_output/08_popGen/05_fst/bel-hon.50kb.5kb.windowed.weir.fst',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BH',RUN='BH');
bp <- read.csv('../../2_output/08_popGen/05_fst/bel-hon.50kb.5kb.windowed.weir.fst',sep='\t') %>%
bp <- read.csv('../../2_output/08_popGen/05_fst/bel-boc.50kb.5kb.windowed.weir.fst',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BP',RUN='BP');
hp <- read.csv('../../2_output/08_popGen/05_fst/hon-boc.50kb.5kb.windowed.weir.fst',sep='\t') %>%
......
......@@ -48,7 +48,7 @@ karyo <- read.csv('../../0_data/0_resources/F2.karyo.txt',sep='\t') %>%
bh <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-hon-gemma.lm.50k.5k.smooth',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BH',RUN='BH');
bp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-hon-gemma.lm.50k.5k.smooth',sep='\t') %>%
bp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/bel-boc-gemma.lm.50k.5k.smooth',sep='\t') %>%
merge(.,(karyo %>% select(-GEND,-GROUP)),by='CHROM',allx=T) %>% mutate(POS=(BIN_START+BIN_END)/2,GPOS=POS+GSTART,COL='BP',RUN='BP');
hp <- read.csv('../../2_output/08_popGen/06_GxP/smoothed/50kb/hon-boc-gemma.lm.50k.5k.smooth',sep='\t') %>%
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment