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