setPercentChange: Calculate different tumor volume information types.

In novasmedley/gbmSpm: Find predictive sequential patterns for clinical glioblastoma patients

Description

setPercentChange: get volume percent changes from a sequence of volume measurements.

setRatechange: get volume rate changes from a sequence of volume measurements.

setResponse: get volumetric response criteria by mapping continuous volumes to response criteria categories

Usage

setPercentChange(volumes)

setRatechange(volumes)

setResponse(volumes)

Arguments

volumes

dataframe, a single patient's tumor volume events

Details

Percent changes, rate changes, and volumetric response criteria (see prepTumorVol) are based on volumes in volumes, where rows are ordered (e.g,. by time).

volumes contains tumor measurement events as rows and at least the following column:

• agent_detail = tumor volume in original units (e.g, cubic mm)

• eventID = baseline day of occurence, accepts only one volume per day

Value

volumes with percentChange as an additional column

Examples

data("fake_data")
vols <- fake_data$events[fake_data$events$agent=='measurement', ]

# format data
vols$startdate <- as.Date(as.character(vols$startdate), format='%Y-%m-%d')
vols$enddate <- as.Date(as.character(vols$enddate), format='%Y-%m-%d')
vols <- resetEventIDsToDays(vols)
vols <- removeData(vols) # get rid of excess details and empty or no data

# get vols for one patient
vols_set <- vols[vols$iois=='1',] 
p <- setPercentChange(vols_set)

data("fake_data")
vols <- fake_data$events[fake_data$events$agent=='measurement', ]

# format data
vols$startdate <- as.Date(as.character(vols$startdate), format='%Y-%m-%d')
vols$enddate <- as.Date(as.character(vols$enddate), format='%Y-%m-%d')
vols <- resetEventIDsToDays(vols)
vols <- removeData(vols) # get rid of excess details and empty or no data

vols_set <- vols[vols$iois=='55',]
r <- setRatechange(vols_set)

data("fake_data")
vols <- fake_data$events[fake_data$events$agent=='measurement', ]

# format data
vols$startdate <- as.Date(as.character(vols$startdate), format='%Y-%m-%d')
vols$enddate <- as.Date(as.character(vols$enddate), format='%Y-%m-%d')
vols <- resetEventIDsToDays(vols)
vols <- removeData(vols) # get rid of excess details and empty or no data

vols_set <- vols[vols$iois=='55',]
r <- setResponse(vols_set)

novasmedley/gbmSpm documentation built on May 17, 2019, 10:39 a.m.