## NGG
leven_df <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE)
leven_df
head(leven_df)
## NGG
leven_df <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE)
head(leven_df)
## NGG
leven_df <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE, check.names = FALSE)
head*(leven_df)
head(leven_df)
## NGG
leven_df <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE)
## NGG
leven_ngg <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
library(tidyverse)
## NGG
leven_ngg <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
head(leven_ngg)
hamming_ngg <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
len(hamming_ngg)
length(hamming_ngg)
length(leven_ngg)
sum(hamming_ngg %in% leven_ngg)
sum(hamming_ngg %in% leven_ngg)/length(leven_ngg)
sum(hamming_ngg %in% leven_ngg)/length(leven_ngg) * 100
sum(leven_ngg %in% hamming_ngg)/length(leven_ngg) * 100
## NGG
leven_nngrrt <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNGRRT_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
hamming_nngrrt <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNGRRT_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
nngrrt_overlap <- sum(hamming_nngrrt %in% leven_nngrrt)/length(leven_nngrrt) * 100
nngrrt_overlap
## NNAGAAW
leven_nnagaaw <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNAGAAW_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
hamming_nnagaaw <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNAGAAW_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
nnagaaw_overlap <- sum(hamming_nnagaaw %in% leven_nnagaaw)/length(leven_nnagaaw) * 100
nnagaaw_overlap
## NGG
leven_ngg <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
hamming_ngg <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NGG_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
ngg_overlap <- sum(hamming_ngg %in% leven_ngg)/length(leven_ngg) * 100
ngg_overlap
## NNGRRT
leven_nngrrt <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNGRRT_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
hamming_nngrrt <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNGRRT_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
nngrrt_overlap <- sum(hamming_nngrrt %in% leven_nngrrt)/length(leven_nngrrt) * 100
nngrrt_overlap
## NNAGAAW
leven_nnagaaw <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNAGAAW_Leven/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
hamming_nnagaaw <- read.csv("avx_phaeous_leven_hamming/Vulgaris_NNAGAAW_Hamming/targets.csv", header = TRUE) %>% select(Guide.sequence) %>% pull()
nnagaaw_overlap <- sum(hamming_nnagaaw %in% leven_nnagaaw)/length(leven_nnagaaw) * 100
nnagaaw_overlap
