# Standard, single-label NR-seq
fd <- create_fraction_design(c("TC"))
# Dual-label NR-seq
fd2 <- create_fraction_design(c("TC", "GA"))
# Adjust dual-label output for TILAC
fd2$present <- ifelse(fd2$TC & fd2$GA, FALSE, fd2$present)
Run the code above in your browser using DataLab