pat_data = system.file("extdata/processed_data/", "UPN_915.csv", package = "allMT")
assess_neutropenia(input_files_path = pat_data,
anc_range = c(0.5, 0.75), duration_anc = 3)
# \donttest{
cohort_path = paste0(system.file("extdata/processed_data/", package = "allMT"), "/")
assess_neutropenia(input_files_path = cohort_path,
anc_range = c(0.5, 0.75), duration_anc = 3)
result <- assess_neutropenia(input_files_path = pat_data,
anc_range = c(0.5, 0.75), duration_anc = 3)
print(result[[1]])
print(result[[2]])
print(result[[3]])
# }
Run the code above in your browser using DataLab