# Create example expression matrix
expr <- matrix(rpois(1000, lambda = 10), nrow = 10, ncol = 100)
rownames(expr) <- paste0("gene_", 1:10)
# Binarize using k-means
bin_kmeans <- binarize_expression(expr, method = "kmeans")
# Binarize using rank (top 20%)
bin_rank <- binarize_expression(expr, method = "rank", rank_percent = 20)
Run the code above in your browser using DataLab