# NOT RUN {
# Use the gene_s dataset:
q <- BCT(gene_s, 10)
expected_contexts <- q[['Contexts']]
expected_contexts
# [1] "3" "1" "0" "23" "20" "21" "22"
# For default beta:
v <- MAP_parameters(gene_s, 10)
# For custom beta (e.g. 0.8):
MAP_parameters(gene_s, 10, 0.8)
# generate a sequence of data using the generate_data function
s <- generate_data(v, 20000)
# Use BCT:
r <- BCT(s, 10)
# Check the resulting contexts:
r[['Contexts']]
# [1] "3" "0" "1" "20" "22" "23" "21"
# The resulting contexts are as expected
# }
Run the code above in your browser using DataLab