diff --git a/NAMESPACE b/NAMESPACE index 21b4d38..d9f645f 100644 --- a/NAMESPACE +++ b/NAMESPACE @@ -3,6 +3,7 @@ export(calc_mappability) export(fit_ab) export(get_CPM) +export(join_count_and_design) export(measure_gene_stats) export(measure_sgrna_stats) export(plot_PCA) diff --git a/R/utils.R b/R/utils.R index 38882f2..20cb31a 100644 --- a/R/utils.R +++ b/R/utils.R @@ -115,6 +115,13 @@ calc_mappability <- function(count_obj, df_design) { #' @importFrom magrittr %>% #' @importFrom tibble tibble #' @return A tall-thin and combined table of the sgRNA read counts and study design will be returned. +#' +#' @examples +#' library(CB2) +#' data(Evers_CRISPRn_RT112) +#' head(join_count_and_design(Evers_CRISPRn_RT112$count, Evers_CRISPRn_RT112$design)) +#' +#' @export join_count_and_design <- function(sgcount, df_design) { cols <- colnames(sgcount) diff --git a/man/join_count_and_design.Rd b/man/join_count_and_design.Rd index eaf4eee..0f4e691 100644 --- a/man/join_count_and_design.Rd +++ b/man/join_count_and_design.Rd @@ -17,3 +17,9 @@ A tall-thin and combined table of the sgRNA read counts and study design will be \description{ A function to join a count table and a design table. } +\examples{ +library(CB2) +data(Evers_CRISPRn_RT112) +head(join_count_and_design(Evers_CRISPRn_RT112$count, Evers_CRISPRn_RT112$design)) + +}