## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)

## -----------------------------------------------------------------------------
library(CB2)
library(dplyr)
library(readr)

## -----------------------------------------------------------------------------
data("Evers_CRISPRn_RT112")
head(Evers_CRISPRn_RT112$count)

## -----------------------------------------------------------------------------
Evers_CRISPRn_RT112$design

## -----------------------------------------------------------------------------
sgrna_stats <- measure_sgrna_stats(Evers_CRISPRn_RT112$count, Evers_CRISPRn_RT112$design, "before", "after")
gene_stats <- measure_gene_stats(sgrna_stats)
head(gene_stats)

## -----------------------------------------------------------------------------
df <- read_csv("https://raw.githubusercontent.com/hyunhwaj/CB2-Experiments/master/01_gene-level-analysis/data/Evers/CRISPRn-RT112.csv")
df

## -----------------------------------------------------------------------------
head(measure_sgrna_stats(df, Evers_CRISPRn_RT112$design, "before", "after", ge_id = 'gene', sg_id = 'sgRNA'))