assess_thrombocytopenia {allMT}

Assess hematological toxicities : Thrombocytopenia

Description

Evaluate number of thrombocytopenia episodes and their duration for a given patient or cohort

Usage

assess_thrombocytopenia(input_files_path, plt_range, duration_plt = NA)

Arguments

input_files_path

path to a file or a folder with MT csv files (in quotes).

plt_range

Platelet (PLT) value range of c(thrombocytopenic PLT threshold, recovered PLT threshold). NOTE: Ensure that units are the same as unit of PLT in the input data.

duration_plt

numeric duration (in weeks) that is used to categorize event as "long duration thrombocytopenia" (optional)

Value

Returns a list with (1) the thrombocytopenia information for each patient as listed below, (2) analysis summary as dataframe (3) analysis summary as HTML table.

1. Pat ID

2. Number of particular toxicity episodes

3. Duration of particular toxicity (in weeks)

4. Number of long duration toxicity episodes

5. Duration of long duration toxicity (in weeks)

Note

1. If the function is used for cohort analysis then values are represented as median and interquartile range (IQR) (25%-75%). The median and IQR is rounded off to upper integer value if decimal value is greater or equal to 0.5, else to lower integer value. Example 1.4->1 and 3.75->4

2. Long duration toxicity is only analyzed if "duration_plt" is included in provided arguments

3. User may save the result as a list, if required, to analyze each patient thrombocytopenia analysis by analyzing 1st element of list

See Also

assess_neutropenia(), assess_anemia()

Examples

pat_data = system.file("extdata/processed_data/", "UPN_914.csv", package = "allMT")
assess_thrombocytopenia(input_files_path = pat_data,
                      plt_range = c(50, 75), duration_plt = 3)


cohort_path = paste0(system.file("extdata/processed_data/", package = "allMT"), "/")
assess_thrombocytopenia(input_files_path = cohort_path,
                      plt_range = c(50, 75), duration_plt = 3)


result <- assess_thrombocytopenia(input_files_path = pat_data,
                      plt_range = c(0.5, 0.75), duration_plt = 3)
print(result[[1]])
print(result[[2]])
print(result[[3]])