# NOT RUN {
datafile <- system.file("extdata", "trial_data.csv", package = "packDAMipd")
trial_data <- load_trial_data(datafile)
value_ADL_scores_IPD(trial_data,c("tpi"), NA, adl_scoring_table = NULL)
# }
Run the code above in your browser using DataLab