library(cpam)
# load example data
load(system.file("extdata", "exp_design_example.rda", package = "cpam"))
load(system.file("extdata", "count_matrix_example.rda", package = "cpam"))
# Using a small subset of the example data
cpo <- prepare_cpam(exp_design = exp_design_example,
count_matrix = count_matrix_example[1:20,],
gene_level = TRUE,
num_cores = 1)
cpo <- compute_p_values(cpo)
cpo <- estimate_changepoint(cpo)
cpo <- select_shape(cpo)
cpo$shapes
Run the code above in your browser using DataLab