# input reads count of 3 binding sites
untreated_ip = c(10,20,30)
untreated_input = c(20,20,20)
treated_ip = c(30,10,20)
treated_input = c(20,20,20)
# sequencing depths
untreated_ip_total = 10^7
untreated_input_total = 10^7
treated_ip_total = 10^7
treated_input_total = 10^7
# get the result
result = bltest(untreated_ip, untreated_input,
treated_ip, treated_input,
untreated_ip_total, untreated_input_total,
treated_ip_total, treated_input_total)
Run the code above in your browser using DataLab