data(toy_ldata)
ldata <- detect_TLS("ToySample", k = 30, ldata = toy_ldata) # First detect TLS
if (max(ldata[["ToySample"]]$tls_id_knn) > 0) {
icat <- calc_icat("ToySample", tlsID = 1, ldata = ldata)
icat
}
Run the code above in your browser using DataLab