data <- list(
list(c(0.1, 0.2, 0.02), c(0.05, 0.25, 0.15)), # tip 1
list(c(0.01, 0.7, 0.85), c(0.3, 0.1, 0.98)) # tip 2
)
transformed_data <- categorize_siteMethSt(data, u_threshold = 0.2, m_threshold = 0.8)
Run the code above in your browser using DataLab